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ENSAIO 3 : SPECTRUM 
Como imprimir Strings 


ORG 40000 


PARTM: DEFB 17 |; comando PAPER 
DEFB 0 
DEFB 16 ; comando INK 
DEFB 3 
DEFB 22 : comando AT 
DEFB 10 
DEFB 8 
STRING: DEFB 70 ; mensagem STRING 
DEFB 69 
- DEFB 76 
DEFB Tea 
DEFB 90 
DEFB 32 
DEFB 65 
DEFB 78 
DEFB 79 
DEFB 32 
DEFB 78 
DEFB 79 
DEFB 86 
DEFB 79 
TOTAL: DEFW 21 : extensão total 
— STRING+parâmetros 
START: LD A 2 
CALL 5633 : abre canal S (Écran) 
LD B 24 
CALL 3652 : CLS às 24 linhas 
LD DE PARTM - aponta início dos parâmetros 
- LD BC (TOTAL) 
CALL 8252 : imprime a STRING 
RET 


Utilizar o assemblador (descrito em suplemento) para intro- 
duzir na memória os parâmetros e conteúdo duma String é 
pouco prático, visto este assemblador exigir a entrada de da- 
dos separadamente, um a um. 

O leitor deve utilizar o assemblador apenas para assemblar 
as mnemónicas e introduzir os restantes dados, tais como ta- 
belas numéricas, texto, etc., por outros processos. 
Quando se prepara código máquina e não possuímos um as- 
semblador profissional, aonde tudo é fácil, podemos utilizar o 
Basic para introduzir esses dados, ou por uma linha DATA no 
caso dos parâmetros, ou por uma linha REM no caso do 
texto, que depois facilmente colocamos no local pretendido 
da memória. (Veja, para exemplo, pequenos monitores — 
Capítulo 1). 

Após todos os dados estarem armazenados na REM 1, pode 
gravá-los com SAVE «Data» Code 23760, n e chamá-los de- 
pois para a memória com LOAD ”* *” Code pretendido. 


Uma vez concluída a rotina em C/M, pode ensaiá-la com: 
100 RANDOMIZE USR START 


(Cont. dos números anteriores) 


Em que START é o nome atribuído no ensaio ao endereço 
de arranque que o leitor conhecerá logo após a assem- 
blagem. 


ENSAIO 4: ZX81 
Como imprimir Strings 


A rotina que vamos utilizar é parte integrante da rotina de co- 
mando PRINT do programa monitor. Ela é chamada sempre 
que uma String de caracteres tem de ser escrita. 

Os parâmetros para o seu manuseamento são dois. O ende- 
reço de arranque e o número total de caracteres da String. 


ORG 16444 
START: LD DE 16514 |; endereço da String 
LD BC 29 : extensão da String 
CALL 2923 : ROM — comando PRINT String 
RET 


10 REM ESTA STRING TEM 29 CARACTERES 
20 SLAW 

30 PRINT AT 18,0; 

40 RAND USR 16444 


RUM, 


Subgrupo D: as instruções RST 


RST é uma abreviatura de RESTART que nos dá uma ideia 
de recomeço ou rearranque. 

As rotinas RST são na realidade especiais. Repare-se que O 
fabricante da ROM as distingue de todas as outras, porque 
utiliza apenas um byte para as chamar. 

Apesar de serem instruções muito semelhantes à instrução 
CALL incondicional, não requerem endereço de referência. 
Cada uma delas (oito ao todo), comanda uma importante roti- 
na monitora, a detalhar no Capítulo 3. 


Mnemónicas Códigos Nomes das Rotinas 


RST O 199 The start 

RST 8 207 The error restar 

RST 16 215 Print a charactere restar 

RST 24 223 The collect charactere restart 
RST 32 231 The collect next charactere restart 
RST 40 239 The calculator restart 

RST 48 247 The make be spaces restart 
RST 56 255 The mascable interrupt 


Antes de efectivar o Salto para qualquer destas rotinas, com 
a excepção da primeira (RST 0), o ZB80 envia uma cópia do 
endereço de PC para o Stack, assegurando o retorno à se- 
quência interrompida. 


Exemplos de aplicação: 
RSTO 


Alguns programas de jogos da última geração, aparecem 
condicionados à introdução pelo teclado de um ou mais códi- 
gos chave, com variantes entre números, letras e cores. 
Quando os códigos introduzidos não são os correctos, o pro- 
grama é limpo da memória. Darei aqui um exemplo como po- 
de ser conseguida essa operação. 

Existem, em código máquina, vários processos para pesqui- 
sar o teclado e devolver a informação sobre a tecla premida. 
O mais simples para este exemplo, envolve o teste a 2 vari- 
áveis de sistema, a KSTATE (endereço 23557) e a LAST K 
(endereço 23560). 

À rotina monitora de pesquisa ao teclado, memoriza nos en- 
dereços destas variáveis, 50 vezes por segundo, se houve 
tecla premida e qual. 


KSTATE : EQU 23557 
LAST K : EQU 23560 
LD A , (KSTATE) 
SUB 5 

JR NZ, START ; 
LD A, (LAST K); 


START: 


não tecla premida 
última premida 


Segue-se a memorização da tecla em HL, que está apontado 
para determinado endereço da memória, a pesquisa de outro 
código, nova memorização, etc. Após a entrada de todos os 
elementos código, compara-se e... 


JR NZ, FIM erro no código 
JP endereço jogo OK código certo 
FIM: RST 0 a memória é limpa 


A pesquisa do teclado foi aqui apenas apresentada como 
exemplo, porque mais adiante vai ser objecto de uma conver- 
sa bem mais detalhada. 

A instrução RST O provoca um NEW total ao sistema, tal 
como tivéssemos interrompido momentaneamente a corrente 
à máquina. 


ENSAIO 1: ZX81 
Introdução de texto no écran através da rotina RST 16 


O texto pode ser introduzido pelo Basic na primeira REM e 
depois transportado para a zona de memória pretendida. 
À separação entre cada linha do texto é conseguida pela in- 
trodução o símbolo "'*” (código 23). 

Por cada símbolo ''*” a mais, obterá uma linha em branco. 
O final do texto é indicado pelo símbolo ''$"”, (código 13). 


Exemplo da formação da REM: 


1 REM MENU * PARTE 1 — ESTRATÉGIA + 
PARTE 2 — COMBATE +» TECLAS DE COMANDO: 
** 0... POSIÇÃO NO ÉCRAN + 1,23... 

TIPO DE PEÃO +» Z... FIXAÇÃO + etc... $ 


Assembler da rotina: 


TEXTO: EQU 30000 
ORG 30500 


CLUBE Zs0 


START: LD HL TEXTO 
LOOP: LDA(HL) 
CP 23 :* Caractere "'*' 9 
JR Z Aí 
CP 13 ' Caractere "84" ? 
JR Z Bi 
RST 16 
INC HL 
JR LOOP 
Al: INC HL 
LD A 118 : 
RST 16 
JR LOOP 
B1: RET 


NEW LINE 


Códigos da rotina: 


33, 48, 117, 126, 254, 23, 40, 8, 254, 13, 40, 10, 215, 35, 24 
243, 35, 62, 118, 215, 24, 237, 201. 


100 PRINT AT 3,0; 
110 RAND USR 30500 é 


RUN... 


O comando PRINT AT também pode ser substituído por uma 
rotina da ROM. (Veja introdução ao C/M . ZX81 — Capítulo 1). 


, 


ENSAIO 2: SPECTRUM 
Introdução de texto no écran através da rotina RST 16 


imprima na REM 1, 5 frases escritas em cores diferentes de 
tinta e papel, usando os comandos directos de cor. 
Informações tais como inverso de vídeo, intensidade lumino- 
sa, sobreposição de caracteres e intermitência, podem 
também ser indicados usando os comandos directos respec- 
tivos. 

Como separador entre cada frase, utilize o caracter '*' e 
repita-o tantas vezes, quantas linhas quiser de intervalo entre 
estas. A finalizar o texto, imprima o caracter "HT. 

Passe os bytes da REM 1 para o endereço 60000, pelo pro- 
cesso já recomendado. 


Rotina a assemblar com RAMTOP em 59000 


TEXTO: EQU 60000 

ORG 60500 

LD: .HL TEXTO 

LD A (HL) 

CP 42 * Caracter "'*" 92 

JR Z AÍ 

CP 35 ' Caracter “FF' ? 

Na LAR 

RST 16 

INC HL 

JR LOOP 

Ai: INC HL 
LD A 13 
RST 16 


JR LOOP 
B1: RET 


Ao assemblar esta rotina vai reparar que na 1.º passagem o 
assemblador marcará com + (inverso) as instruções JR Z Aí 
e JR Z B1. No final da assemblagem anote os endereços de 


a 


START: 
LOOP: 


NEW LINE 


CLUBE Zgso 


E SS SEE E RA 
CCEE EE EE E EEE === 3 


== SS TPTB BEE = es: 88 


A1 e B1, faça um STOP ao programa, liste as citadas instru- 
ções e substitua Aí e B1 pelos respectivos endereços. 
Execute uma segunda passagem ao programa com GOTO 
1020 e se não houver erro grave os respectivos códigos. 
Finda a assemblagem, junta-se os bytes do texto com os Dy- 
tes da rotina. O texto é chamado com o endereço base em 
60000 e a rotina em 60500. 


Para o ensaio, introduza o seguinte Basic: 

90 PRINT AT 3,0; 

100 RANDOMIZE USR 60500 

Vão surgir no écran todas as frases anteriormente impressas 
na REM 1, com os seus atributos. 


Subgrupo E — As instruções RET 


As instruções RET incondicional e todas as outras RETs 
condicionadas, fazem parte deste conjunto de instruções. 
A principal utilização destas instruções, para além do retorno 
ao Basic, já nosso conhecido, é a de marcar o final duma 
subrotina e proporcionar o regresso ao programa principal. O 
1380 ao ler uma instrução RET, extrai do Stack o endereço de 
-etorno que coloca no registro PC, e incrementa 2 vezes o 
registro SP. 


Mnemónicas Códigos Comentários 

RET 201 Retorno incondicional 

RET C 216 » se carry flag = 1 
RET NC 208 » se carry flag = O 
REE-Z 200 » se zero flag = 1 
RET NZ 192 » se zero flag = 0 
RET M 248 » se sinal flag = 1 
RET É 240 » se sinal flag = O 
RET PE 232 » se O/P flag = 1 
RET PO 224 » se O/P flag =0 


E importante ter em conta que o endereço de retorno extraí- 
do do Stack por uma destas instruções RET, não teve de ser 
necessariamente lá colocado pela correspondente instrução 
CALL. 

8, exemplo que darei a seguir, extraído do programa monitor 
“*» ZX81, mostra-nos como pode ser utilizada uma tábua de 
endereços, que vai proporcionar a selecção do endereço de 
retorno após a execução da subrotina. 

Na “Basic line scanning routine” (Rotina que pesquisa os ele- 
mentos que compõem a linha Basic em execução), os dife- 
rentes comandos Basic estão agrupados em sete conjuntos 
de classe. Assim, o comando da linha pesquisada é determi- 
nado e um salto é efectuado para a respectiva rotina de clas- 
se, cujos códigos de referência vão de O a 6. 

O código seleccionado é carregado no registro C. 


Endereços Mnemónicas Comentários 
3333 LD HL, 3350 
3336 LD Be 
3338 ADD HL, BC 
3339 LD C, HL 
3340 ADD HL, BC 
3341 PUSH HL 
3342 RST 24 
3343 RET 


Endereço base da tábua 
Clear B 

Soma o código de classe 
Põe conteúdo em C 
Forma o endereço 
Coloca-o no Stack 

Lê o caracter seguinte 
Salta para o endereço do 
comando 


Tábua de endereços das classes de comando 


Endereço Conteúdo Endereço obtido Classe 
3350 23 3373 0 
3351 37 3388 1 
3352 83 3435 2 
3353 15 3368 3 
3354 107 3461 4 
3355 19 3374 5 
3356 118 3474 6 


ENSAIO 1: ZX81 E SPECTRUM 


Rotina para transcrever no écran pequenas frases, tais como 
PRIMA UMA TECLA, FIM DO JOGO, etc., ou ainda símbolos 
e caracteres formados pelo utilizador, para o caso do 
Spectrum. 

O texto é colocado no endereço Q1 e cada frase separada 
por “mw”. 


START: LD HL Q1 

LOOP: LD A (HL) 
CP ''s” 
RET Z 
RST 16 
INC HL 
JR LOOP 


GRUPO 13 — As instruções de rotação 


O Z80 tem um grande número de instruções para a rotação 
de bits. 

Quando bem aproveitadas, essas instruções podem ser mui- 
to úteis. No entanto, são pouco utilizadas pela maioria dos 
programadores, talvez pela dificuldade de as distinguir devido 
aos seus nomes serem difíceis de fixar e pelo facto da acção 
se desenrolar ao nível de bits. 

Na minha opinião, não as devemos desprezar pois a sua ac- 
tuação sobre representações gráficas têm um efeito sur- 
preendente, isto para além de outras aplicações não menos 
importantes. 

Para simplicidade no seu estudo, vamos dividi-las em 3 
subgrupos. 


Subgrupo A — As instruções de código único que afectam 
apenas o carry flag e que são destinadas ao registro A. 


Mnemónicas Códigos 
RLC V; 
RRC 15 
RL 23 
RR 31 


Subgrupo B — As instruções de código duplo que afectam 
todos os flags. 

Estas mnemónicas não afectam os flags de uma maneira di- 
ferente do já relatado com outros tipos de instruções. Contu- 
do, tentando desmistificar o rótulo de «instruções muito difí- 
ceis de aplicação», farei aqui um apanhado do comportamen- 
to de cada flag, após uma instrução de rotação. 


4 CLUBE Zeo 
Carry flag — Toma o valor 1 quando o seu conteúdo for 1. SRA A 203, 47 
SRA B 203, 40 
Zero flag — Toma o valor 1 quando o b itante for O. 
g v quando o byte resultante for O SRA C 203. 41 
Sign flag — Toma o valor 1 quando o bit de sinal do resulta- SRA D 203, 42 
do for O. SRA E 203, 43 
O/P flag — Toma o valor 1 se a paridade do resultado SRA H 203, 44 
for par. SRA L 203, 45 
SRA (HL) 203, 46 
Mnemónicas Códigos SRA (IX+d) 221, 203, + d, 46 
ALC A 203, 7 SRA (IY+d) 253, 203, + d, 46 
RLC B 203, O SARL A 203, 63 
ALC C 203, 1 SAL B 203, 56 
RLC D 203, 2 SAL. 6 203, 57 
RLC . E 203, 3 SARL D 203, 58 
REC. H 203, 4 Sm E 203, 59 
EE | 203, 5 SARL H 203, 60 
ALC (HL) 203, 6 SEL L 203, 61 
ALC (IX+d) 221, 203, + d, 6 SARL (HL) 203, 62 
ALC (IY+d) 253, 203,4 d, 6 SARL. (IX + d) 221, 203, + d, 62 
RL A eus, 23 SRL (IY+d) Sos ANDA O 
RL B 203, 16 a a | 
RL C 208. 17 Quando uma instrução de rotação de bits é executada, todos 
RL D 208. 18 os bits pertencentes ao registro indicado, se deslocam uma 
AL E 208. 19 casa. A direcção da deslocação depende do tipo de 
RL H 208. 20 instrução. 
RL L 208. 1 Vamos considerar os 8 bits dum registro e referenciá-los 
RL (HL) 203, 22 devidamente. 
RL (IX+d) 221, 203, + d, 22 Bits 
RL (IY + d) 253, 203, + d, 22 
SLA A 203, 39 Re PEÃO POA... 2 20, 
SAB 203, 32 
SLA C 203, 33 
SLA D 203, 34 
SL A. E 203, 35 Assim, o 1.º bit dum registro é referenciado como bit O e su- 
SLA H 203, 36 cessivamente até ao 8.º bit referenciado como bit 7. 
A: und 203, 37 
HL 203, 38 7 . estas 
= 4 À d) 2214 203 +d. 38 instruções do tipo RLC — Rotação à esquerda com carry. 
S.A. AY. + 0) 253, 203, + d, 38 
RRC A 20, TO 
RRC B 203, 8 
da - US, 3 O carry flag toma o valor do bit 7, todos os bits do registro se 
RRC E 208, 40 deslocam uma posição à esquerda e o bit O tomará o valor 
RRC H PA e que pertencia ao bit 7. 
RRC L 208, 13 
RRC (HL) 203, 14 Instruções do tipo RL — Rotação à esquerda. 
RRC (IX+d) 221, 203, + d, 14 
RRC (IlY+d) 253, 203, + d, 14 
RR A 203, 31 
RR B 203, 24 
RR C 203, 25 Bit 7 vai para o carry. Carry para o bit 0. 
RR D 203, 26 
RR E 2083. 27 á a IS 
RR H ne 28 instruções do tipo SLA — Transferência à esquerda. 
RR L 203, 29 
RR (HL) 203, 30 
RR (IX + d) 221, 208; +. d; 30 
RR A(IY4d) 253, 203, + d, 30 O bit O é colocado a zero. O bit 7 vai para o carry. 


CLUBE Zso 


instruções do tipo RRC — Rotação à direita, com carry. 
Fa pe DR tp gn 


O bit O vai para o carry e toma a posição do bit 7. 


instruções do tipo RR — Rotação à direita. 


Tp psp sz o 


O bit O vai para o carry. Carry para o bit 7. 


Instruções do tipo SRA — Transferência à direita. 


O bit O vai para o carry e o bit 7 não altera. 


Instruções do tipo SRL — Transferência à direita. 


o- [E SEsEsEsEaR EO 
Carry recebe o bit O. O bit 7 é colocado a zero. 


Um exemplo extraído do monitor do ZX81, mostra-nos a utili- 
zação duma instrução RL E na gravação dum programa. 
Na rotina de comando SAVE, o nome dum programa, o pro- 
grama e variáveis, são passados para a cassete da seguinte 
forma: 

Cada byte do programa é carregado no registro E que é ro- 
dado a esquerda após o carry flag ser colocado em 1. Ao ser 
alocado o mono bit (o bit do carry) no valor 1, efectua-se 
uma marca indicadora do fim de um byte. 

Na primeira rotação o bit 7 vai para o carry, na segunda o bit 
6 e assim sucessivamente até entrar o bit O. 

Por cada rotação, o carry é testado e o seu valor enviado pa- 
ra a cassete, sendo depois limpo antes da rotação seguinte. 
No final dos 8 ciclos, é efectuada outra rotação para testar o 
carry. Se este contiver a marca o registro E recebe o byte 
seguinte para gravar. 


Endereços Mnemónicas Comentários 
798 LD E (HL) Chama um byte 
799 SCF Carry em 1 para a marca 
800 RL E Rotação de E à esquerda 
802 RET Z Retorno após 8 ciclos 
827 AND A Limpa carry 
828 DJNZ 827 Linha de atraso que determina 


a velocidade de gravação 
830 JR 800 Repete o ciclo 


ENSAIO 1 (ZX81 E SPECTRUM) 
Multiplicando com instruções de rotação 
Carregue o registro BC com um número entre 1 e 8190 (é 


necessário que o produto não exceda 65535, valor máximo 
de acumulação para registro par). 


LD BC NN 

SLA C 208, 33 
RL B 203, 16 
SLA C 208, 33 
RL B 203, 16 
RL B 203, 16 
RET 


PRINT USR... 


O número introduzido é multiplicado por 2 7 3 e o resultado 
transportado por BC para o Basic. 

Utilizando as duas instruções similares de rotação à direita 
pode efectuar pelo mesmo processo a operação inversa (a 
divisão). 


ENSAIO 2 (ZX81 E SPECTRUM) 


LD BC NN (por exemplo 65520) 
SEL - ;-B 203, 56 

RR C 2083, 25 

SME DB 203, 56 

RR C 203, 25 

SnL -"“B 203, 56 

RR C 203, 25 

RET 

PRINT USR... 


O número introduzido é dividido por 2 7 3 e o resultado tran- 
sportado por BC para o Basic 


ENSAIO 3 (SPECTRUM) 
Rotação de 180º de um conjunto de caracteres gráficos 


Vamos supor que temos 2 caracteres gráficos representando 
a figura de um boneco a andar para a esquerda e que a dada 
altura o quer rodar para o pôr a andar para a direita. 


Exemplo: 


START: ORG 23300 

LD HL (23675) ; variável UDG 

LD A 16 ; para 2 caracteres gráficos 
NEXT B LDBSB : byte seguinte 


NEXT P RR (HL) - 
RL C 

DJUNZ NEXT P 
LD (HL) C 

INC HL 

DEC A 

JR NZ NEXT B 
RET 


RANDOMIZE USR 23300 


O registro HL aponta o endereço do primeiro caracter gráfico 
(UDG), o registro A é carregado com o número de caracteres 
a modificar (8 bytes * 2 = 16), o registro B recebe o número 8 
(8 bits por byte) que vai usar para a contagem. 

O primeiro byte apontado por HL é rodado para a direita, 
sendo o primeiro bit introduzido no carry flag que o passa pa- 


pixel seguinte 


CLUBE Zso 


ra o registro C que vai rodar à esquerda. 

Ao fim das 8 rotações o primeiro byte foi rodado de 180º e 
carregado no respectivo endereço. 

A movimentação cessa quando o registro A, que vai sendo 
decrementado, chegar a zero. 


PRECISA-SE 


DE UM PROCESSADOR DE TEXTO PARA O 
NEW BRAIN. 


Contactar com: 
ANTÓNIO BAPTISTA CARAPITO 
TELEF. 7115558/69 — COIMBRA 


Anunciado há meses (para não dizer há dois anos) a Timex 
parece finalmente decidida a lançar uma máquina que embo- 
ra semelhante (ou mais ou menos igual), não dependa da 
Sinclair. 

É interessante não esquecer que todas as ULAs (circuito inte- 
grado responsável pelas entradas/saídas do Spectrum), são 
fornecidas pela SINCLAIR o que obriga a TIMEX a uma certa 
ginástica de fornecimentos mais ou menos esquisitos, de tal 
modo que o Spectrum aparece no Norte de Portugal, a um 
preço que varia entre 19 e 28 contos. 

Acontece que alguns felizardos já observaram a nova máqui- 
na, denominada TIMEX COMPUTER 2068 e de acordo com a 
publicidade do produtor, a tónica que tenta empurrar a venda 
desta máquina, será a da capacidade de memória ... 72 Kby- 
tes de RAM. 


Claro que isto, visto sob o ponto de vista do utilizador com 
alguma experiência, não pode ser apresentado desta forma. 
É dos livros, que um microprocessador de 8 bits (tal como o 
Z80), não pode trabalhar com memória superior a 64 Kbytes... 
a não ser que o Sistema Operativo seja de tal modo potente 
que consiga ele próprio Sistema Operativo, gerir a memória. 
Falam-nos de utilização de uma ROM externa de 56 Kbytes, 


que provavelmente poderá gerir a memória RAM e alguns dos . 
periféricos. a 
A máquina pode trabalhar em dois modos distintos, ou seja, 
como um Spectrum vulgar e mantém todas as características 
do nosso velho conhecido, ou pode ser comutado para 24 lIi- 
nhas x 64 colunas, o que se aproxima dos modelos mais ou 
menos «profissionais». 


Apresenta um teclado mais decente, se bem que inferior ao 
Spectrum PLus, mas permitindo também o manejo de coman- 
dos com uma só tecla, sem ter de usar a técnica da «aranha», 
como quando queremos usar a função INT no Spectrum 
(lembram-se?). 


Tem saídas distintas para Monitor Monocromático (fósforo 
verde, por exemplo) e TV cor ou p/b. 

Pode usar dois Joysticks, um gravador, e possui a saída habi- 
tual para acoplar o Interface 1 RS232 ou o controlador das 
Diskettes (FDD). 


Com toda a sinceridade, não nos parece ter detectado uma 
grande curiosidade à volta deste anúncio, será que os afi- 
cionados duvidam que este projecto tenha sido finalmente... 
concluído”? 


ALEXANDRE SOUSA 
Surgiram recentemente os drives para leitura e reprodução de 
programas (Sinclair/Spectrum) e que foram lançados pela Tl- 
MEX. O sistema é denominado TOS-Timex Operating System 
— e vai criar o meio ambiente no qual serão entendidos os 
comandos e instruções que permitem usar diskettes como me- 
mória externa e valiosa. 
As diskettes possuem o formato de 3 polegadas e capacidade 
para 160 Kbytes de cada lado, ou seja, 320 k em ambos os 
lados. 
O Hardware classificado como FDD — Floppy Disk Drive — é 
de concepção japonesa e adaptado pela Timex para funciona- 
mento conjunto com o Spectrum 48 K e com o recém-criado 
Timex 2068. 


O Hardware é composto por um Drive-dispositivo que grava e 
reproduz as diskettes; por uma fonte de alimentação e por um 


controlador que possui também uma saída tipo RS232, deno- 
minada CANAL «ch-a». À 
independentemente de muitos problemas que se levantam 
sobre a manipulação dos ficheiros, sob o ponto de vista da 
utilização das diskettes, vamos apresentar hoje o procedimen- 
to completo, relativo à preparação de uma diskette que permi- 
ta obter uma listagem do programa numa impressora de 
80(132) colunas, dada a dificuldade inicial de que esta acção 
se revestiu. 

A impressora que usamos é do tipo STAR DELTA 10, que 
possui as vantagens de ter incorporados os dois tipos de 
comunicação — Série e Paralelo — e possuir uma velocidade 
de 160 caracteres por segundo; ser bidireccional e permitir 
usar papel do tipo formulário e normal. 

O Interface da impressora foi previamente preparado para 
uma velocidade de transmissão de 1200 Banda — não é 
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aconselhável usar elevada velocidade de transmissão com o 


Spectrum —; não usar Stop bit; número de byte por 
caracter = 7 e o avanço linha a linha ser automático (aut. line 
feed). 


Consultar o manual da impressora, para verificar se existem 
as mesmas condições, se a impressora não é STAR. 

Em seguida, ligam o FDD e com a diskette de origem, denomi- 
nada «DEMO» disk, chamamos o Directório onde se encontra 
o utilitário da impressora. 


GOSUB + “UTIL. DIR'' enter 


deste modo, obtemos acesso à zona onde se encontra o utili- 
tário da impressora 


LOAD + ""LPRINT” 


Observamos que possui apenas uma instrução na linha 9. 
Vamos modificar de modo a escrever: 


1 LOAD *'LPRINT. cod” CODE 23297 
2 FORMAT *':ch-a” 

3 OPEN E + 3; “:ch-a”; O 

vi 4 PRINT tt » 3; “Teste da impressora” 
5 Close É * 3 


Ligar a impressora, preparada com papel, etc. 
Vamos fazer correr o propgrama e iremos em seguida respon- 
der às seguintes questões: 


TEXT or. BYTES .-HB) 2.4 


Auto Line Feed RUN). 2 NY 
XON/X OFF (Y/N) 2? N 
INPUT with wait  (Y/N) ? N 
BAUDE RATE (A/P) 2? | (nosso caso 1200) 


PARITY (E = Even, O = Odd, N= None) ? N 
STOP BIIS (A = 1, B=15, €=2) ? Emer 
BrS/Char TA =5; B=5€=7,D=8) "E 


Se tudo estiver de acordo com as nossas respostas, iremos 
observar a saída para a impressora, da frase que está contida 
na linha 4 do nosso programa. 

Quando obtivermos a saída na impressora, iremos preparar 
ma diskette, que vai armazenar os nossos programas de mo- 
do a não ser necessário, responder a toda aquela série de 
perguntas, sempre que precisar de usar a impressora. 
Pegue numa diskette virgem, ou que possa formatar (não es- 
quecer que este comando, elimina tudo o que está gravado na 
diskette!). 

Ainda com a diskette «DEMO», use o comando directo: 


FORMAT + “A” TO “DISK 1º 


Nós usamos “disk 1” no nosso exemplo. Use o nome que 
entender para a diskette que quer formatar. 

À pergunta FORMAT DISK IN DRIVE A (Y/N)? responda Y 
Retire a diskette e introduza a diskette que vai usar com os 
seus programas. 

Quando a diskette estiver formatada, volte a introduzir a 
diskette “DEMO”, volte a seleccionar: GOSUB + “util. dir 


LOAD + “LPrint” 
Escreva sem número de linha: 


LOAD + “LPrint. cod” CODE 23297 
INPUT “disk dos programas”; Y$ 
'SAVE + “LPrint. cod” CODE 23297, 76 Enter 


Quando observar no écran o pedido da diskette do programa, 
introduza a sua nova diskette e use o comando Enter. 
Agora no seu primeiro programa, a linha inicial deve ser: 


LOAD + “LPrint. cod” CODE 23297 
RANDOMIZE USR 23297 
OPEN É:3; “ch—-a”:;0 


Desta forma sempre que use a impressora, terá o canal 3 
atribuido a este periférico, desde que não use o comando 
CLOSE ti +32. 


VENDE-SE 


ZX SPECTRUM 48K 
COMO NOVO — BARATO 


Contactar com: 
LUÍS SOARES 
TELEFONE 813245 


TOP 10 EM INGLATERRA 
(Tirado da revista «YOUR SPECTRUM», Abril 85) 


1 — DALEY THOMPSON'S DECATHLON 
2 — UNDERWURLDE 
3 — SABREWULF 
4 — MATCH DAY 
5 — KNIGHT LORE 
6 — JET SET WILLY 
7 — TLL 
8 — MONTY MOLE 
9 — SKOOL DAZE 
10 — GHOSTBUSTERS 
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(Os mais vendidos) 


1 — CYCLONE 
2 — DEUS EX MACHINA 
3— LAZY JONES 
4 — OLYMPIMANIA 
5 — GOHSTBUSTERS 
6 — TURMOIL 
7 — BEAR GEORGE 
8 — TRAVEL WITH TRASHMAN 
9 — KNIGHT LORE 
10 — SYSTEM 15000 


ATENÇÃO 


NO PROGRAMA VIGAS CONTÍNUAS, ONDE 
ESTÁ... MM EM KGFXM2 DEVE LER-SE KGFXM. 
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Sem ocupar memória 
Adapt. da Revista Microhobby/LORENZO CEBEIRA 


Fazer cópias de segurança dos programas é, aparte ser um 
costume são, uma necessidade. Para isso oferecemos-lhe 
Microcopi, programa em código máquina, que dá uma grande 
ajuda para este tipo de trabalho. 

Um aspecto ainda a destacar do MICROCOPI é que não ocu- 
pa lugar na memória excepto o que utiliza na apresentação 
visual. 

No mundo dos computadores existem algumas lições que 
convém aprender logo se não queremos que seja o nosso 
micro a encarregar-se de as ensinar. Uma das mais importan- 
tes é relativa às cópias de segurança. Confiar os nossos pro- 
gramas a uma só cassete ou a um só cartucho de Microdive é 
pecar por optimismo. 

Por isso convém desde o primeiro momento a guardar em 
duplicado todos os programas e arquivos de dados. 

Isto não supõe nenhum problema quando se trata dos nossos 
próprios programas, mas quando se trata de fazer cópias de 
segurança de programas comercializados, isto torna-se difícil. 
A maior parte deles estão protegidos de tal forma que é impos- 
sível pará-los e portanto copiá-los com o comando Save do 
Spectrum. Para solucionar este problema, oferecemos-lhe 
MICROCOPI, um programa em código máquina que lhe 
permitirá copiar uma parte dos programas comerciais. 


Questão de ordem 


Mas antes de prosseguirmos, temos de fazer uma advertên- 
cia: fazer cópias de segurança dos programas que compra- 
mos, é uma actividade perfeitamente legal e recomendada 
inclusive por muitas firmas de Software. 

Em contrapartida fazer cópias de pogramas que compramos, 
para vender ou para dar a outras pessoas, é uma actividade 
pouco ética e provavelmente ilegal, mas a legislação sobre 
propriedade intelectual deixa muito a desejar nesta matéria. 
Em qualquer caso fique bem claro que a finalidade deste pro- 
grama é unicamente a primeira citada. 


Características do programa 


MICROCOPI permite copiar qualquer programa com Header 
(logo explicaremos isto) cujo comprimento não supere os 8973 
bytes no Spectrum de 16K, ou 41741 bytes no modelo 48K. 
Também pode copiar um programa que conste de várias 
partes, se nenhuma delas superar o comprimento indicado. 
Para copiar este tipo de programas é necessário fazê-lo parte 
a parte. 

Além disso, MICROCOP! proporciona o tipo, nome, compri- 
mento e começo do programa que está a carregar ou a gravar 
e permite repetir estas operações quantas vezes desejarmos. 


Fazer cópias de segurança dos programas que compra- 
mos é uma actividade perfeitamente legal. 


Depois de carregado aparece no écran o menu com as opções 
«LOAD», «SAVE» e «FIN». Premindo a tecla correspondente o 
programa realizará a operação requerida. Observa-se que O P 
de «FIN» está em maiúscula e para isso deve premir simultá- 
neamente Caps Shift e a tecla. Esta operação é uma protec- 
ção contra descuidos e tem como efeito apagar o programa da 
memória e regressar à posição inicial. As outras duas opções 


explicam-se por si mesmas. Premindo a tecla «LOAD» entrará 
em modo de carga. Ponhamos em marcha a fita com o progra- 
ma que queremos copiar e enquanto MICROCOPI tiver copi- 
ado o Header, dar-nos-á os dados do programa. 

Se esse não é o que queremos copiar, premindo Break, 
MICROCOPI passará a carregar o programa seguinte da fita. 

Uma vez carregado e se tudo correu bem, a mensagem 
«correcto» aparecerá no écran. Premindo Enter voltaremos ao 
menu onde podemos escolher a opção Save para gravar O 
programa. Pode terminar a operação de gravação fazendo 
Break ou então continuar a fazer o número de cópias que de- 
sejar do mesmo programa. 


Informação 


Vejamos agora o que significa a informação que aparece no 
écran em primeiro lugar. Temos o tipô de programa que pode 
ser: 


«Program», «Number array», «Character array» ou «Bytes». 


Se tem alguma dúvida neste campo consulte o seu manual. 
Segue-se o nome do programa onde podem ser utilizados 
códigos de controle ou caracteres especiais. 

Quando MICROCOPI encontra algum destes, substitui-os por 
um sinal de interrogação, ou de contrário o nome poderia 
imprimir-se na parte superior do écran provocando um resul- 
tado catastrófico. 


MICROCOP! proporciona o tipo, nome, comprimento 

e começo do programa 

Encontramo-nos com um número que indica o comprimento 
do programa que estamos a carregar. Se este é superior ao 
que indicamos anteriormente, MICROCOPI parará imediata- 
mente e indicará que não é possível copiá-lo, com a mensa- 
gem «NO CABE». 

Convém ter em conta, que em ocasiões se utilizam Headers 
«falsos» que indicam um comprimento diferente do real. 
Podemos encontrar a mensagem de «Error de carga» em pro- 
gramas que usam este tipo de protecção. 


Outros truques 
Existem muitos outros truques de protecção, como gravar os 
programas sem Header, colar os blocos de dados, etc.... e 
MICROCOPI não copia este tipo de programas. Note ainda 
que podemos ter uma cópia que aparentemente se fez sem 
problemas mas que não funciona. 

Embora isto seja bastante raro, é perfeitamente possível que 
aconteça. Os truques de protecção são infinitos e não existe 
nenhum programa de cópia que possa com todos eles. Em 
contrapartida não existe nenhum programa que não possa ser 
copiado. E seguindo com o nosso tema vejamos agora o sinifi- 
cado de «Comienzo» — (Começo. 

Se se trata de um programa Basic, este número indica a linha 
de execução automática com que foi gravado o programa. 
Quando não aparece significa que não existe linha de autoe- 
xecução. Se se trata de Bytes será indicada a posição do códi- 
go máquina na memória. 

Por último no caso de «Array», este número não aparece. 
Como se faz 

Passemos agora à parte prática do tema. Em primeiro lugar 
temos que introduzir o programa número 1 e gravá-lo em 
cassete com a ordem: 


, 
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SAVE «MICROCOP!» Line 10. A parte mais difícil do trabalho 

vem a seguir. Temos que introduzir o programa listado número 

2 procurando não cometer erros. 

Convém ter cuidado especial com o último número de cada 

linha DATA. 

Trata-se do controle que nos permitirá corrigir os erros que 

tenhamos cometido (recorde a lei de Murphy). Se tem alguma 

duvida talvez o ajude a saber que nestas linhas só se aplicam 

números e letras maiúsculas de A a F. 

Uma vez terminada a listagem convém fazer uma cópia de 

segurança do mesmo numa cassete aparte. 

À seguir podemos pôr o programa em funcionamento com o 

comando RUN. 

Se tudo correu bem, ao fim de 1 minuto e alguns segundos, 

aparecerá a conhecida mensagem «Start tape, then press any 

key», indicando-nos que podemos gravar o código máquina 

que o programa produziu. 

Naturalmente gravá-lo-emos a seguir ao programa da lista- 

gem 1. Se cometermos algum erro nas linhas DATA, o progra- 
ma parará indicando-nos o número da linha com erro, para 

que efectuemos a correcção correspondente. 


Erros 

Agora tecle LOAD «MICROCOP!» ou «LOAD» para carregar o 
programa. Há uma possibilidade mínima do programa não 
funcionar. Se tivermos cometido erros que se anulem entre si, 
o programa não poderá detectá-los. Neste caso não haverá 
outra solução que não seja a de voltar a verificar a listagem. 
Uma vez tendo tudo em ordem deve fazer 2 cópias do progra- 
ma MICROCOPI. 
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CARLOS MORENO 
PORTO 


Como sabem depois de transferir uma rotina C/M de um local 
para outro, todas as instruçoes JP têm de ser alteradas. 
Por isso faça poke 65495,255 para corrigir o endereço de uma 
JP da rotina de load que foi transferida. 

Feito isto a rotina está pronta a ser utilizada, no entanto antes 
de a executar faça SCF para indicar a rotina que vai fazer load 
e não verify (ser a flag carry for zero a rotina pensará que quer 
fazer verify, o que pode ser utilizado para verificar se os bytes 
a copiar entraram correctamente para a memória). 
Vejamos agora a listagem de um exemplo da utilização da roti- 
na para copiar programas (bloco a bloco): 


Id ix, 16384 ; endereço para onde vamos apanhar os bytes 
Id de, 48976; quantidade de bytes que podemos apanhar 


scf ; 
call 65366 ; 
Id (65534), x; 


Id hi, (65534); 
Id bc, 16384 ; 


and a 


sbc hl, bc ; 
ex hl, de ; 
call + 1154 ; 


Fr 6-258 


“o 


, 


, 


, 


Id a, (16384) ; 


(Continuação do número anterior) 


sem corromper a rotina de load 

sinalizar que vamos fazer load 

chamar a rotina de load 

ix contém o endereço para onde foi apanhado 
o último byte 

dar a hl o valor de ix 

dar a bc o valor do endereço inicial 

tornar a flag carry zero para a subtracção que 
se segue 

agora hi tem o número de bytes apanhados 
Dar esse valor a de 

chamar a rotina de verificação de break 
esperar até break e caps shift serem premidas 
simultâneamente 

dar a a o valor do leading byte 
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ld ix, 16385 ; dar a ix o valor do endereço da base do bloco a 
copiar, este valor é 16385 e não 16384 porque 
este último endereco tem o valor do leading 
byte 

call +04C2 ; chamar a rotina de save 

jp 65507 ; voltar ao início 
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Esta rotina deve ser assemblada a partir do endereço 65507, 


ms VIR 
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acordo com as suas necessidades. cmar pessõas,Cuidar das pessoa 
Agora tudo depende da sua imaginação. = E. a es ES OD trabatho das 
FIM .i7a CATA “Escolhe entre:cC, Fala 
r é público ,Ccenstrvyir “UA bone 
co de barro",“Cuidar de uma cris 
Ata doRITLE. 
1isoD DATA “hRaonde preferes ir se 
R um jardim Com hiuitas plan-. 
tas, lagos e zezsS0as0,'A uma tab 
(Continuação do número anterior) ira com cobósc,"A um bairro pob 
Rr 
1590 DATA --Escothe entre:","Faze 
ASA DAI A “igiua 5 aas SRQUINTES E e Me - 'Contemp LT “Fa a 
ÇÕES gosta-fias mais de fazer no “Dão DATA “EScolhe entre:l,oa + 
dia do teuaniversário:cC,CIr com Em Dto ga ad q o a 
Ds teus am,905 visitar vii MUS E para CEStaolhê eAtrerl, Lt 
Eu de bGtasnica.ti qrafi- de aqu C animaisC,“Pintar animaizC, Far 
ario OU um Pianeitario, UÚrganiza Er 2arte de uma Sociedade Al 
UM CONRTUTSO ENLTE Os Teus tectora de animais 
Cohusidagos VReiasitar 305 tREuE co 2» DA “Pretetitiãs: º,'Fazéetr 
Fui dadas a his trof tas da tua vid redicameniosC, "Fazer máquinas pa 
Bailado Zando diapositivos, ra 2rúduzir medicamentos", Pa 
TuBdros. humorísticos Ou uma rticibar na organização da 35 
rEdalçãoa bah humorada” ; sisfencia négica” 
E) DHTA CS te desãzem um Dretma 2 Sara “is eme É que mais adm 
O Gostariasque fosse: , Por Lere ras, “im qrupo de dericientes q 
= ESTito um Limid SúDre a LE 5eE DOrganizam para ce defe 
vida humana”, Por teres invenitad nder methor na cociedade”, “Um 
O Uma maquina, Por itere aruzo de baiiadov,Cum grupo de 
> FEITO dia obra de arte: Cc Logiavas” 
larã DHTA Ciuando visitas uma Pó 'dãa DATA “Que gostarias mais d 
vogsção ue ad con nhEcleEs que Pis r aPren der Parei: bh peio Edi 
Eres iagerd, Observar as casas, iciaC,“Uma grande empresa de 
Edifícios Du monumentos, dk PubLiciade"l,“Um conjunto 
ZElvard 5 forma de viver das PE se nácuinas 
sS045,05 SEUS habitos E co 258 DARIA “RAR que dãs mais valor 
maldriamentos “ne Ir dar cannes Lhe fi Ê dE entendimento ENILTE ds 
Rd ap = E Sa dr dE vo - pessoas, “Ro assenvolvimento 
a interfoGa- -t+as5 Guobre CojSas indusiriailti.CA conservação da Ha 
qUE TE interessam carrera” 
iddo DRTA “lnagiha que. Te enc "esa DATA “Escolhe entre:o, Faze 
antras em frente de dim aranha r uma tei”,“Fazer um discurso,” 
E Ti0O; QUE preferias fazer? , Ca Farer um quadra” 

Nhaliza-.o Para umha alDbufea - ia 22064 DATA nisto a " dBo="30,r 
2 dJdeP0is CONSTtriir Luma Da E RP en e ret RD .T 
rragein cara produzir ener- gi e a iGijcio E sódadis a 
a eléctrica, "Canatliza-lo para z Sds s aCsSráriisice bosraadçre To 
nas agri- cDOLas e montar Sis atliBi="aP,tHLiGDI = B'otaiegdi="a 
temas de regadiol,'Fazer um Sposa ,rgrasista Rig! ST 

beEio quadro do rio e da Ppaisa Ce tosS) ee 
gem à volta” 2018 DATA chlidi=tbo,caiD=C be, rã 
igsa DATA 'Supõe que te encontra gases rrRiBi="bo Táltiintal  TÉIS 
a Em frentede um monte de cacos ee costa =s*tpe,rgitei=obo,rg111 
ve lLnos: Brinquedos,roupas móv E BC Etica cs fai eco ,TÊTS 
EIS E QU- tros obiectos.Que te = Palds =p ,rgtis! mad grãl 
Dcorreria fazer,de preferência: SM ="pº pura Craig TS, E 
“,oCRgCOLher tudo e limpar aquele e =“b 
Locai tarnando-o bonitol,“Pro 2220 DATA ráidi="bl,caia)a=]Co.ra 
Curar peças que te perma - Lis SR o sa bs rgdrrs bes Fãs 
Sem construir um novo bra rea faddoir primado toatSja 
nquedo”,CRproveitar aquelas cois Blj="có,rqiiOl=“có,rgilzi="al,rg 
as aus te 2udessem servir para e Teo rutig sa” ,rSigne lost 
fazer Dbsecios de decoraçao” os e tro rádesS ea tapas], 
ilúy DATA “Dos seguintes element eteSi=tal,rgidsia=tal 
DS escolhe aquele que tiver mais =a3a DATA cailli='co,chiBi=val,rã 
Ss1i9NiFfica-do para ti:","Uma. EST A SC GAS MA A. 3 CBisSi= Co E CS LE 
últural,C“Uma maquina”,"Uma plant =“ ai PRA plidi= 4" Thilo 
a. EC eee cial="DOTRido = SOrgid 
illa DATA “Dao-te a escolher a regbiar [&j Si ecc, rGi 
entre Os seguintes museus,para Sie cc recado tai lt 4 CAS 
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CLUBE Zso 


Autor: MANUEL JOSÉ QUINAZ 
PORTO 


INSTRUÇÕES: 


Este programa tem a capacidade dt quardar ha nNémoria 150 
fichas de programas com os seguintes cCanpos: 
MNúME,Nenoria, Numero da cassete em que se encontra,Lado da 
cassete é Ubseruações late 128 caracteres), 


Pura intrúduzir o program proceda do seguinte modo: 

Neta à Listagem 1 do programa em Basic gravando-a de seguida com 
SHUE “Ficheiro” LIME dO CATENCHO:Mao experimente o prograna Seu 
à Codigo Maquina metido) 

Ex seguida Faca PRINT USR O é de entrada do Loader da Listagem à 
Depois do programa metido Faca RUM é de entrada do endereco onde 
quer Codecar à Meter o codigo MaquinasDe entrada dos Varios 
Walores,€ cuando quiser terminar entre con 499, 


U prograda tem Marius tipos de caracteres e 550 ocupa Nuitos 
bytes é demora muito tenpo à passar para | computador para 
euitar 1SSb Nao passe v codigo Maquina correspondente as partes 
Letras lletras 2letros letras descrever nas Linhas 
4420, 9930, 9990, 9950,9960 apenas à comando RETURME. 

Se Nao quiser passar o programa envie um pedido por carta é q 
quantia de 160500 em vale ou cheque ou em selos de 20900 é sera 
remetida UMa Copia di proógrani. 


FICHEIRO DE PROGRAMAS 


l- DAR ENTRADA DE FICHAS | 
2- CONSULTAR O FICHEIRO | 
3" BPHONKR DMA-FICHA | 
DRDUS PARA A PRINTER | 
GRAUAR FICHEIRO | 


B- VERIFICAR TODO FICHEIRO 


4 


À que DOceD 


Prúgraiia NUMETO:L 10021 
bra 
ve LR 


JBSERUAÇUÕES 


-*iratarse de um jogo de accão em que você Lero de guiar à 
astronquta quudandoto à construir o Foguetao. 


Fr 
Ur 


"e 


Pc a 
; 


= 


' 


ou cm 
Co € 
SUSTO Ult Cr da - 


E peOre re prants 


+ PERDI 


- 
[e] 
(84 


1260 og 


Lot 
Cr Cas 


Es rim 

el tro) Mm c-. 
. » ar 

E 4 Ti tu [mp 


[SAD - - 


SS : 


“SO GARSUH-+ IS 
REPARAR 


GO SUB 95 
197D LET 


E EstES 
EC 
RE o 
ZM 
no 

NM 

ar E 
éú T 

q 

E) 


Ch 


€ To 
Mm TE 
Mm . 
ER] 
[RR 
H 
So 


J 

E 
“mm 
Tn 


OC uin == 
UAD Xuod 

Cc! 

Gi 

um 


VÊ. “EI 
GI AR 
Ce 
mM 


FE! 


CALHA 


mma oo: 
ne ps TUCA 


VIMNNGCOH 


Gon to wir (ME 


Õ 


ia é 


PAR Tu 


E 
E a a 
is 


ú 
E 


— T- Gn 
TM 


-— 
e 


Dc ma) 
o 
+ TT mt E 


ÚUy—— 
má Tt TZ 


GXUZMOL MTO AT 4 


= an 
EaZal 
"META E. qt ec +5 


MTC Gs pm Gum 4 Que 


cf 


mam - 
-+ 1 
o pgs QU 
o Tm ds o qu ds 
e 


=Úmmm—ma. 
ww * ME 


Cipa e TUM 
=. Es: 
NM mo 
EIA 
“= 
ZA Za ri 
e EM O Mm 


Cr cm 
a é EDZE qa 
o 
LER vç: 
fu Ga du iu 
a mi 


Ma Zhty mIs 


S 
R 
H 
g 
u 


m 
ao dr 
Gg) 


o 


“BUNTER Ss. TC 
PRINT FLASH 12 
QUMPLETO SS LE 
EN Llegpe" CO Sil 


Umero:C+s 
e LET Aa 


As 


RS ad nd SS 
ESSA 
.. + .. 
mrzre m 


DE ra du 


li 


= (ul 


Ms Tm NESsT 
ÚQ Ilddy 


FNE 
FZ 
[e] 
3 


4 K: 
994: LET vã 
NOS oe aa 


VS DO =. «ITD 
RS a 
HP ADA 
nm + 

Rê 
r 


tiras mam 


E E 
E 


RENA ZAZ 


NOTA: Os blocos em código máquina correspondentes aos vá- 


rios tipos de caracteres (letras 1,2,3,4) serão publicadas na 
próxima revista. 


SEN, 


CLUBE Zso 


T Lz1: LET asfcaabETaxgds-. LELoyUsO 7 34 ,d2: DRAW INK 1,1380,0 
D: GU SUB 9990: LET dãy="Lado +s 2619 INPUT “Quer copiar tsesnilid 
5: LET x=207: SO SUB 99092: PLOT 5. IF dg="s" THEN. COPY 
3,59: DRAW 255,0 2900 INPUT Mais alguma procura 
iySa INPUT “Observacoes: chr. IF vt ; dG= IR d$="n “ THEN RETURN 
LEN cg:128 THEN GO TO E ” 
085 LET dã&='observacõoes": Gu SU 2919 IF d5='s" THEN GO TO 2020 
8 9958. LET x=dQ: LET a=2: LET À 2920 GO TO 
=D: LET y=115: GO SUB 9900: GO S SPA REM PRasar pitacos 
UB 3950 | 3919 INK &: = õ PER fot 
19990 LET MPE LET.ag="=+"*€ LS 
SLE, XxsDb: LET =18: INK 1: 60 3020 LET dg="Apagar uma ficha: 
SUB 9919: INK O ; GO SUB '9950: LET x=50: LET uU=b: 
+1090 INPUT “ALgutha alteracaoO dA5: LET L=1: LET aàa=2: G0 SUB 99002. 6 
n5C;ds : O SUB 39550 
1119 IF dyã='sº THEN GO TO 1929 3230 INPUT “Ficha a ada = “CS ES 
1422 IF dã='n" THEN GO TO 1130 IF Es5=f THEN PRINT ATO 10,7; FLAS 
j1j25 GO TU 1128 H 1:CFICHA NAO PRRERO D é LET 
1130 LET f=f+1 Ap a =): LET u=3: LET L=38: GD SUB 
1135 INPUT “Mais alguma Ffichatris ag9a70:. RETUÉN 
n)";dã: IF d$g="s" THEN GO TO 10 Sa - LET dg=n$git): CET x=D0: LET 
aa uso: LET L=15-EET sem GO SUB q 
ijdo IF dãá='n" THEN RETURN 20 
1154 GO TÚ 1135 É 3952 INPUT “Tem a certeza (tsszn) 
2200 REM ai! “] :dã&: IF dg='n THEN RETURN 
2201 INK dB: EDER 4. 3060 IF dã<>'s" THEN GO TO 3050 
LS 3a LETCOgI FS ="*2 0 LET=ngGIiT)=00: 
=00S IF F=d THEN PRINT AT 18,5 CEPnNSibD=ºe FORMA =cHErSsT. o 
LASH 1:ºNÃO EXISTE NENHUMA FICH ET nglii=nglti+ãi: LET ogili)=ogii 
Ro LET x=40" LET qe. LET L=40: +1):/ LET npiryr=0442220)CrNEXT à: 
GO SUB 9970: RETUÊN E] LET E=f-1 
201) LET das" Es O Ficheir 39080 LET dag="APAGADA": LET L=a: 
o”. LET L=i: LET as Rs) 1 SAS LET a=z4: LET y=120: LET x=590:" G0 
ET x=40: GO SUB 2530: SD SUB 9998 LET x=S0: L u=5: LE 
O: BD SUB 5950 SUB 997 RN 
2920 GO SUB 9950: PRINT AT +,3,0 EF 2 pars Lt 
Li- procurar peio nome: “TRE 3:“2 ” 
- procurar pelo numero": GO SUB 
3960 
2030 LET dã='A sua dpcao: LET 
=P. LET astiidtl Kxcá: Lei us7s E pe, 
GO SUB 59290. GO SUB 9900 8: s0 SUB 9950 
2940 LET dg=INKEYG: IF dgs> Lo 4230 GO SUB 9950: PRINT AT 4,93; 
ND déc> 2 THEN BO TO dAso o a i- saida de observacões"" THB 5; 
2950 LET x=216: GU SUB 39904: GO 'D- saida de Programas" BO SUB 
SUB asou 5. a 396 
2970 INPUT “Nome do programa d $sD3. LET U=720:. LET L=a: Eu a=1 
> CE dHMENAS - GO SUB 99290: GO SUB a90 
2280 FOR c=1 TO Ff-l LE. Mi Cdgia T «059 LET dE=INKEYG IF dg<>"1" À 
O d)=zdã THEN GO TO 2540 ND dg&<>'2 THEN GO TO 405 
22990 NEXT c: CLS PRINT AT 13,1 “269 LET x=213: GO SUB 9902. GU 
O PLASH 1," INEXISTENTE Lota: ae SUB 39560 
39: LET u=2: LET L=50: GO SUB S3 ada LET x=sdO: LET UsdooLET o Lady 
?0: GD TÚ 2990 E - GO SUB 99709 
22ãa INPUT CNumero do programa 2ip5p) CLS: IF dg="2" THEN GU TO 
| CDA” Chet PHEN GO, oERINTSAF “So 
19,10, FLHEMN 1; INEXISTENTE EE “2990 INPUT “Em 64 ou 32 colunas 
T Xx=39: LET u=2: LET L=S0: Go SU Pa 
5 5a70: G0 TÓ 2980 ” 190 IF d:>64 AND d<e>32 THEN CO 
2500) INK à. PAPER 5: BORDER 3: UiLsSs TO 492939 
Silo LET dE=STR$ c+máici: INK 2: “llaú IF d=6d THEN GD TO 49300 
Leto Msige tLEdoysida CEM tmRPL. 212) INPUT “Todos os programas 
ET a=2: GO SUB 3928 siniceds: vIFodges0s" cANDodbi<> RAR 
asey LET pm “Programa Numero:C+5 THEN! GO TO j128 
TR de LEIS x=0:0 LES 8 282: LEBENSA ã130 IF ds='sº THEN GO TO d200 
O deh: u=10: 2O SUB 3500: INK q ida INPUT “Numero do programa é 
2530 LET dg=nkit):. LET x=0: kET sd: IF d>=F THEN PRINT AT 13,910, 
sd: LET 2=3: LET Lz1: BO SUE 9 FLASH à PNERED ELES) LET ax=40 
328 :sEET y=2: LET L=20: G0 SUB 9970 
Ssdo IF máic,li='0" THEN LET ig= - RETURN 
"16 RB: STO 2550 à 159 LPRINT og id: RETURN 
EGdl LET db='45 K” a«aBo FOR d=1 TO f-1: LPRINT ogid 
eso LET da=-“ZX Spettruh +16: L É NEXT d: RETURN 
EtT= aa: SET uarD: [=à : LEE 320 INPUT "Todos os programas | 
= Co SUB 99090 s4nil;ds: IF dãác>0so AND dãc>on” 
ESA LET dg='Cassete No.cC+msicIl THEN GO TO 45920 
2 TO 31 LET Usa: EKT dB: LE k isla IF dãz='sº THEN GO TO dida 
- : LET y=90: GO SUB 9900: LET d 43290 INPUT “Numero do proarama 
"Lado “+mBic,4): LET x=2907: BO d: IF d$=f THEN PRINT-AL IBs1B; 
“SUB 39900: PLOT 0,69: DRAU 255,0 FLASH--4:." INEXISTENTEC:. LET Xz48 
2580 INK 1: LET dã&="observacoes' Let uios LET LE GO SUB as7o 
SO SUB 9958: LET x=d ET axe RETURN 
LET. L=2:5 LET yg=17%b: GO SUB. BD 330 EE dent tddi T x=0: LET 
dQ: 50 SUB 9950. INK QB uz): BO SUB 9912: LET dézogidi 
ass) LET Ch=0GiC): LET dã='=> +C LET ox =0:. LET dz2: GU.SUB 99T0: 6 
Ee] xa LESo USD NSK 1:-B0 DP: RETURN | 
SUB 9910: INK QU ado CEA x=0: LER-gsD:SFOR i=Ã 
2504) PLOT 9d,145: DRAW 255,8: PLO O f-l: LET dg=ngiii: GO SUB 9914 
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CLUBE Zso 


LET u=u+2: LET dã=o ,s=2028 
Ee CEL ENO A ago Phaticdo B 5902: GU SUB 9960 
+ a IF isda=INT i/4) THEN LET q 5932 PRINT AT 3,0:: FOR i=1T e 
D: COPY: CLS 7 -1: PRINT is;TAB 3;0-"; TETO 
ico NEXT i 23); "> mgtii: NEXT ERES 4 O 
pre + pre RETURN Ed40 PRINT RO; FLASH 1;" 
NT MELO) i=i TO f-1 STEP 2º LPRI Soo IF 1 REAR é 
CNES A O 1S8):;nãgii+lii TO 161 BÕEO &n INKEY E “» THEN RETURN 
“309 REM EM 3500 LET 
Sd00 REM 3 1 =23950965: 
S010 INK 3: PAPER 6: E i+1,y: POKE Pos LoRÊ Lis ao” 
LS - BORDER 5: É POKE ita,8: LEFT i=i+d: CET VeLEN' 
2020 LET dg=" Gr 'y - a EB. d&: FOR = úR TO ee p 5 
Es “ag: LET q- = do Re so us n: EEE da 
55 Sus Soso az2: GO SUB 9900: E ET E REM LE 
5030 GO SUB 59580: e 4a FOUR n=1 TO E  GnkK 
i- gravar em O à a 39+n, CODE dg ini: NEXT A “PORE 64 
agravar em cassete": GO SUB das 595+n,0: POKE 54995,x: POKE Essa 
ET gelo ET al=70 LET e a: gi Letra as ST an ES E: 
ia. d&= Eve: 7 5 3920 25605 ,5 3: E ScEAS 
= % =2' - -, ne se a , SB E, SE t - = — - 
Rs Saga 1 = oo cos pera 38. E 506,95: POKE 23507,2 
5060 LET x=30: ão PORE 23505,2€ Aee 
So70 IPO De po a S5Eo Porto sonos. dps. PARE Sr tr 
O d8='"'2" - 334 POKE 25505 ,0d: az8nS o 
Única quer": siga pm o E 23505,08 — do 
LET A a k=0; LEI 456 : RETURN 23505,0: POKE 23507,50 
ca ass d$="gravar o Esmrnçd TO na (E Rar POKE B9020,4: 
- 1 = ta e, a , oa, — Ta E = E 
:-LET y=32- LET d bo ra e TA Do: RETURN ANDOMIZE USR Gou 
“: 50 SUB 9900 Ra 5999 LORD " CODE - BU 0 69 
5990 INPUT “Ficheiro LIN 5953 LOAD +Um'; 1; ESCODE “Co To 
SIE MEN K$210 THEN GO TO o =” 
5208. "EO SOB 5990. PRINT AT 15, E 
aos . nc : ' 1S La | — [> 
: "ATENCAO: Quando quiser Laspegdr e Ad 
de nicódo ri « gravado tera Ro SS 29999 
St a ACE 50900, SR OLer o «0 POR n=o TOS: IN 
S1lQ CLS : GO 5 SB - A PUT Px E E EE: EM 
DK! C: LET «Sp JLET Gelo: LET as OP ator tias TE seoso PEN ST 
50. LET L=10: G0 SUB 9900: GOD SU -— So LET coco PRINT BS e; 
5129 LET se pda nO PRINT cetico 
Ds SUS 5570. LET 9=5: LET L=50 sa aa 
="Prepare a cas Dá de d =16 
o a LES so: sé A Poa = 
LES ysiê: CET as="gravaro 2500: | 54135 160 l70 lá À =354 
iro € aiga o so pra dal o fichê Se: lá 10 y 3 =2d 
E 1) E Le GO SUB 9990 Salgd 2 74 226 196 = 
o CEL RS uniao A dO od | CESTO 64148  lD4 254 22 O ea 
n 4 -— qem 25, . ; — 
és INPUT “Ficheiro “; LINE kg: 54155 jêo dao a os =484 
JE LEN k$>10 THEN GO +n Saga * BAl6o 36 66  B5 55 nf 
s520 PRINT AT 10,0;“Ponha o gras Galês 66 EO 56 O SE Sds 
E A j Ber = prima ha Sê Dá loo ú 55 228 78 E 
cial RINT AT 19,0; “ATENCAD:O Bál72 228 68 O o ap É a 
ando quiser carregar o es B4176 a a a y =296 
cheiro acavado tera de sa Balgo Do 32 3a 1d =1á 
E“59 CLEAR 59999“,'": SAVE kg EM bd lS4 2 o á se =128 
CODE code Eoddo sóas MME To Salso és 1 E sê Bá 
Bi - — E , 3o Dé. = 68 17 À 1 E E 
a PRINT HO:AT 0,0: Quer verit 54195 16d és Ee” Ed =568 
a riaesa sd IF INKEYg="" THEN G e MD RE 34 78 496 
bi mesm mao RM UE Rope 
SEO CLS go ELodtaaos! cohst dE Baslo 118 iso iso Jos =566 
d: LES y=19: LET a=20: LET E sã" bBáz2p 164. 158 72 3 pe 305 
sêso LET x Sel a ES ccico doa DE 16 =478 
a X= : asd B42: Fe = 
| 60 SUB Nano sos) SS" LES ASSP so Do” de es ag 
SSED RETURN 64236 65 8 e =68 
sua RE B4Z4 0 Ms Mr =76 
010 INK 1: PAPER S: BORDER 5: c peida 78 da rs a | aa 
E 5 as = a 
Sa2o LET dg='verificar o ficheir G42sa 58 128 Fi E arena 
o todo. LET x=20: LET U=0 CET 64255 Za 234 23 =280 
i=1: LET a=2: 20 SUB 9930: GO SU ssaes 234 138 106 235 =550 
asd 198 168 165 200  =75S4 


54258 158 155 198 0 =534 Báras Mad — dao 32 32 =128 
6427 206 1658 168 i7á =716 Báa7i2 Bo So 32 so =128 
B4276 158 165 206 q =S5d2 B4716 o o 32 32 =128 
54280 230 135 136 252 =734 Bá 720 Seo se 3º 32 =128 
B4254 138 138 132 =408 64724 so 32 32 3a =128 
54288 174 1bd 164 228 =730 B4T2S 2 32 a a =32 
54292 164 164 174 =502 
54296 234 42 42 dá. =362 
64300 42 1700. 74 =256 64992 a Z 236 Q =236 
b4304 138 142 138 138  =556 64396 239 2Si 60 21 =571 
543098 138 138 234 OQ =510 ES 221 33 88 es2  =594 
54312 164 234 234 170 =892 B500d 221 126 254  =501 
54316 170 170 164 OQ =594 BS00OB 128 210 182 254 =77?d 
64320 196 170 170 292 =738 55012 254 32 48 E =341 
54324 138 138 132 & =4 19 550165 254 QU 202 190 =645 
54328 198 1658 165 196 =739 55020 asa 62 31 203  =550 
54332 162 162 172 q =496 65024 135 111 38 9 =284 
54335 234 7d 7á 74 =456 55028 gi coaa 17 a =39 
54340 2d 74 58 Q =215 55032 250 OS e. 228  =520 
B434d 170 170 178 17D =688 550365 253 3d »o8 253 =768 
64348 234 78 7á B =386 BSD4a Ss 2380 253 254 =795 
64352 170 178 iAZQ0 74 =584 Assad bd Dilo 182 254 =710 
543565 164 164 164 QU =492 55048 2093 39 203 39 =484 
B4350 230 36 36 58 =370 55052 so) 226 253 58 =587 
B435d 68 132 2390 OQ =430 55056 9314 253: 954 22 =760 
54358 lá 133 68 68 =4 085 ESSA 210 182 254 203 =849 
64372 68 36 44 g =148 55054 39 203 39 23  =484 
64376 Bá 224 6d =352 55058 ao Pa 62 175  =3d47 
64380 Ba Bd Bá lá =206 55072 lda 50 227 253 =B74 
64384 96 128 1258 198 =559 BS07B B> ? sê 225  =3d44 
54388 138 138 230 | =506 55080 253 42 228 253 =776 
54392 o] 128 128 198 =454 55084 126 95 221 126  =568 
54336 168 168 198 QU =534 65088 B 293 71 32 =306 
Bai Do B 32 32 108  =1? 55992 10 123 203 47 =383 
B44D4 170 172 102 q =ddá 55036 2093 47 203 47 =500 
Bás as 2 a6 128 134 =358 65190 203 47 as 58 =403 
B4d iz 202 134 1390 12 =478 55104 226 253 79 58 =6 165 
54416 132 128 204  =d64 55198 DE? 983 71 123 =674 
B4420 164 164 164 OQ =492 55112 2095 115 254 58 =633 
B4424 te 8 74 =154 551165 225 253 254 O =732 
B4428 76 7d 7á 128  =352 55120 4) 49 61 So =200 
B4d32 128 128 138 =394 85124 225 2553 120 61 =559 
B4436 tao 1358 PA a =354 BS128 SO Do? . 258 -:d9 =572 
B4daú a a 196  =196 55132 228 253 35 34 =550 
B44 4d 170 170 164 OQ =504 551365 228 253 2d 197  =782 
Bá4ádaB õ o] a 1958  =198 ES Ida 203 95 196 135 =625 
B4452 170 17B 198 130 =5668 BSlád 254 12 203 87 =555 
54456 a a a 102  =192 55148 195 135 254 12 =597 
B44 BO 132 130 142 OQ =4D4 55152 203 789 196 135 =613 
B445d 2 2 128 202 =330 551565 os4 12 201 197  =664 
54458 138 138 100 q =376 551508 221 229 245 205 =ad0 
Bád 72 ; 3 2 170 =170 55164 223 3d 241. 221. =718 
B44 76 170 78 7á g =322 55158 225 1953 201 221 =840 
B4480 a a õ i7o =170 BS172 35 56 230 253 =5765 
B4d Sd Tá: OB -- 162: 18 =4á ld 55176 BO 2Sd 64 32 =4 10 
B44 85 =! 4 232  =2d6B 55130 a 52 a 59 =lldá 
B4d ao 68 132 230 à =430 55134 230 253 25d O =737 
R 54495 76 658 58 65 =278 55188 3» 45 ss 231 =334 
E45900 BB 58 76 Q =2 12 55192 253 50 254 22 =589 
B450d á 17á 10 lá =202 55195 a» É Aa a =96 
54508 lá 10 4 a =28 55200 sq 231 253 195 =729 
BLBIA 1527 do 657 11% 322 55204 2356 253 62 19 =561 
B4Búd lie 101 1id DE sam 55206 0 56 se 20S  =405 
R4ABbaB 193 104 115 dg =357 65212 3 19 291 q =223 
BáBi2 dO 5? s so =2 i4 65216 Fi Fá og (a) =) 
B4Bis as Ba 1lá 111 =350 
B4620 103 1té 97% 109  =423 
b4B2d 92 32 TO ABS TESJB Continua no próximo número 
54528 97 98 111 114 =428 
54532 97? Fada. Ail-S9 =34 0 
gisio gol do. 8 dio Fa6i 
Bis 3% Rê br; — 
Ba6dad 1091 i05 32 Ja” =345 VENDE-SE 
S4Bd GB 4141 145 41 36 =359 
B4552 61 117 405... 1104 -=413 
B4BSB 9? 122 Q 32 =251 ZX SPECTRUM 48K 
PEA de ME o: - PRINTER TIMEX 2040 (com garantia) 
sessao da dê dê dE Fãs 
Lea B72 ta ' =. a 
E 4676 32 32 38 38 =128 Contactar com: 
Bd 3: 32 3 =1 ANTÓNI É DA PONTE TEIXEIRA AMARAL 
B45Bd seo 39 32 32 =128 ENIO JOS pa E - | 
BabBS ao 39 32 32 -128 RUA DA CARREIRA, N.º 3 — AGUA D'ALTO 
BaBaa2 32 - B& 3> 32 =128 5680 VILA FRANCA DO CAMPO 
B4í6896 Se 32 Se se =128 ACORES 
Aro 32 da 52 Bo. x=12b Ç 
Bá470d Se Re 32 32 =128 
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PAULO METELO 


. iisntelectiual Emocional E 
Este é um programa traduzido e adaptado da ZX COMPU- ásico Cciclas em graficos 
TING. Ele faz o seu biorritmo, bastando para isso que se diga ceparadosCCCC“2itodos os cicios 
A juntos Num so qradraito Giu 
a data em que nasceu e o mês e ano para que quer começar o iêta dos pontos altos e é = 
seu biorritmo. 5 Para um periodo de doze me 


.“ 
- 


Como sabe, o biorritmo compõe-se principalmente de três 
ciclos, o intelectual de 33 dias, o emocional de 28 dias e ainda 
o físico de 23 dias, estes gráficos se o desejar podem ainda 
ser impressos em conjunto ou separados, tendo ainda a opção 
dum quadro de altos e baixos. 


4 E SA 
CI 
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Ti 
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INPUT “áia do mes em que na 


RR a RA 


E 
É. 


INFUT “mes “im 

INPI Cano CC. LES duas 
4u:.1580:: G0O Sib sau 

LET dot=t. INPUT CENTER mes 
quercrcattutar Povo tET REY 
Dº ENPiSI- Camo"; LET quyusgaaI 
uctader- LETceyuTa: LET ds 
SO SUB ago 


Es E 


pese gt pes pedro ps peca preto os 


Es AC 
a! 
ps 
o) 


A estrutura do programa é a seguinte: 


BAT ES 


EA e ds pe 7 ES ED O ED TES ESTO SS 
E 

T! 

= 

ro 


100 — subrotina para desenho dos eixos 
300 — subrotina usada no cálculo do número de dias desde 
o dia em que nasceu 
400 — subrotina usada na soma 
500 — títulos dos gráficos 
1000 — rotina introdutória das opções 
2000 — rotina da 2.º opção 
3000 — rotina da 1.º opção 
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NT a; 
j a 3 õ: E: E. 
4000 — rotina da 3.º opção Es PRINT EMOCIO ; 
- Ep E-S-= —a - am Cc=10: GS0 5UB UU 
' o E A ui GIURNTTAS É É. =950 PRINT “ fiasco: LETTE 
A. sAREIELU = =4: LET c=15: GO SUB d0B 
. da REM Hdaptado da TX COMPUT IN zada LET datezi: LET Kx=dii 
=> Par Frauto Metelo 2058 FOR x=xx+5 TO 250+xx+5 
co is Ti igdiao . > RA =060 LET 4=72+50451N ixcB94PI) 
Sa LHIH Si,2S+14 Ai imo AND 20PB IF x/6=INT ix2/61 THEN PLOT 
E tuucd: =UuMcdii SL peSA RSA, SD.-st mw -%u+D,u4 
SAD SL SB, SL, Sd 2050 LET 4=72+5D+51IN ixc9S4FI-22 
1690 REI srrssrfrrrrrES % 7 
liã PLOT K+d-xxrso.7E = a TE Z*2=INT e E 
= ii A p ” EA = = E F KI stNis irxseér TREN FPELQT 
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; rm . 
Rn NOT o d Tt iidate-liscizia 2152 GO TEC iBdo S7T0F 
E -L+:? BND date>irl THEN GO TO Soda REM ssrsrrirgrrrrs 
4 Ea. Ad a Ea + Sia SO SUB 52 
2 FOR u=7E TO 75: PLOT x+d-xx SMA PET ditoe=?o LET Xxedif | 
E iu MEXT mw e à FOR r=xxs5 TO ckgd+txx bs 
Sd IF ix-Kxrõi-:3:23 THEN PRINT 2040 LET y=-=72+650+45SIN ixsgasFI: 
1 153, ix-zKsEi «5, date-l: PRINT z ã PLOT Yri-zxs6oy 
RT ld, lx-xx+5) +a; Aã&iim-11*53+12 TO 2060 CO SUB 1608 E 
MES SED NEXT = ; 
ljaú IF daterc ANDO NOT ilNTo iycd SoM ET datesa: LET =d ii E md 
i=4cdo AND m=21 THEN LET m=m+1: À m=v 
ET datéesi 30950 INPUT “enter P to printoiva 
200 IF datgrrt+rã CENCA LET nmem+l: o Do rindo THEN LAPY SH PRLNPE-: 
LET date=i PRINTOo. LERINT O: LERINT 
Lã RETURIS SIDO MELS ME ni = + Id 
dad REM +Errrrrrsrkgrrr Ziiaá so TO gsBdádd+runsãdo 
iu RESTURE By. LET no=b: FOR 5 312R SO SUB S90B 
= O m-1l: READ 3: LET mozmo+a: =1iãa FOR Kg=xx55 TO ZEB+EXss 
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ES 
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990 PRINT AT 3,90; bEãl ium-di +12+1 31350 G0 TO F9s8 
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gd) FOR Xx=EX TO xx+365 1E-5B-&5 -3S E = -as aa É 
iosa LET aa=5IN ixsPIlsg:55! 17-6-55 -51 -38 - 120 -E 
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ET daitec=l: E 1 Elma Resposta ao desafio proposto na revista de Fevereiro sobre os 
*ho a ssa : j co ch=l LET m=m+1: números amigáveis. 
1592 IF ich=) AND aqg<20) THEN PR lã IHELo Btê nte vAbol «aus & 
INTO AT aa+2,0:.A$iSam-2 TO a*m1 nArontrar numeros smigaveis *? E 
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4150 IF aa<0 THEN PRINT TAB 10; im dg a 
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4210" IF bb<ô THEN PRINT THE 126 A a CAM a E radigns 
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4230 IF clc<d THEN PRINT TAB cos” I3ã IE khk::>i THEN GOTO gas 
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4250 IF coco THEN PRINT TRE 29," = miados 
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- IF vg="P THEN PRINT AT 99+2,0 


— Qu 
et 69] 
2 
| 
| 
Í 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
I 
1 
| 
| 
] 
1 
tu 
| 
I 
I 
| 
| 
| 
I 


e 2 Oo o o o o o oo o — o — — o — — — — O — ua 
— -—. — — — o o —  .  .  - o. — — — o o— o — — — O — O — O — O mm 


a ea CAME 1 PRINT AT R.R/CHIMEDOS AMIGÊ 
4320 GO TO 1000: STOP uETScPIntrogusa o intervalo fa 
3999 5SAUE “"BIORITMO LINE d: PRI E rom =, e . = E É = =. ias ra 
NT "UERIPYO: VERIFY “BIORITHO : Ee ncee ci, Sino TS mp 
CLS : PRINT Cesta bem aravado ecos pio: ah feição 6 SS e 
Selecionar Cpraõ SD PRESSE = us PB 
SD CIP ars END brasa TREN GOEZA 
liintaeleciual Emocional E = 
fisico cittios em Qraficas if Cia E ENr rg 28,8) CDbados 
Separados incorrectos - Prima ENTER PRIIS 
- E FuN 
E ! i o o is 5 Q i k; É ú 5 du t Q 15 li u Hit E ia a = = pê: a = FERA Te E A e fasso 3 fas Po Tti- --— - 
grafico jp mio pri ca ap re nero ss: 
= = q Spear o Sp 
s E = Eos dit miii LTIIIIIDIDDDDDa=Da=a=DaA-==—— — 


T 
ps) 
qa. 
— 
us 
— 
| 


Es e o «mo mem cam ; 
3. = 8 5 — : s 8 — 
DR “1 1 S- 2:87 — dé TES "a 
A E RÃ). E = e — Es 
e . — - Es O E 4 e 
= à 5% | de= 2 E DE DR: E : = E ce) + E, 
Es me a domo a: é dO os CE pa RR LS fm 
em o - a —  — — — — - —— — . - 
ftrrs im 1 23.2 o ca Sê $ = 
= &º 5 E api — 3 m» 4 
ums um) A E” es E o 
* EM S% T Em = end RAS 20 ms Em Fo É : dm + 
od a Mia? im É eg & = ta Ss + t 3 Em 2 E Eu Em & 
. So alo Ro isto is & 
» ce SS ads ÃO “dé 
o - - —. o — — - 
q tia Po é dm as TF a 
E 3 FAS ot É ; 
EPE e Edi to” É Es 
EE E = E o TS me $5% MME O —-—- E, 
2. =. t E : & á — Sr é 7 E : - — 8. z * 
E = sm ao mm z - asas ago = 
o e a —— ; FE 7 - — "3 2: = EK, 
mbeitaçs Ed EA En E? ado os É 
q 4 ra Ei = E CRE A a CEU Ens E Eco 96 - CE Emei dm Fo é E ; 
imo: E: Fo ij — Ee & E ê qe 24% i : 
aim Jefo RSS se dar edho Es Tede OR fg ER TESE: Elis dé 
E eu E a 
à fuso rs ada 
E =R OR R «-  agE” 
ct Em Set Pião wo T - 
o é A dr oa a : 
E o ES tim St, É É 
Eq = aos (as Ê qu to posar pa MIO — ce cai Gu 
Em 20% : &- e RR Ee E faiidis Sr ia e 
E mr SS) HR) ê É um A x .s ” =. 
PTB Er Pé “od abas nt * us = + > ls tm 
Eq 
RR 
ond seat ót 
Eni .— mis é 
=== TS Em Pê DO o Emo as aci SR) E q E (O O e SS (2 rm 
a) fes EE DS aãFAMTE e — e. e — em 
c— q cmo cmo (ata ea e amo 
— — — o o— cc c— c— — — O: Te Bs Sm 3 TH c— — — — 
— .— .— .— — — o o————— — z mt Cas E É LIS — — —— 
a — .— e — —o— o— o — o — — — — — — o — c— — c— — — —o————————  — — 
bp  — — — — — o o o— cc cc. . cc. . — . -— — —. — — o — o — — — ——— — — 
es eu is = estas! oo 
e “ - 
altos & baixús 
; - pe emo — SA ns => se — a 
ás E E dedo Rs ne Ê = das are a te E - = a 
- y Eta co] E a Emspitos DR tia EE RSA e = ss 
data NA = ft Ra: >1 — Miss (é ds imo - EB Ss) é alo Ra? Rm BE pães Fes çs 


O === TESE [[30[[D>.0.À EEE 
E Us É a Eq 


CLUBE Zs0 


Dan DR E e 


Ci 
seta 


er | "j 
esshos 4. 


fa 1% 


ie a io e 


. ue" 
“ 
E beto " 
do 
ovos Das 


us So $ 2: 


Ses EA 


gu reação 


no ss | 


0 é 
essa ] ] 


AGO JR A A | 
Pd PL PISA di 

[ 

[mi 

fm] 


4 

. 

“ 

“ 

“ 

“” 
pi Ti son» 
se... 007 menos 


Adapt. e trad. 
da «SINCLAIR USER» 


Programação pode ser engraçada, mas muitas vezes desejas 
produzir um efeito no teu computador para o qual não conse- 
gues encontrar uma rotina. Muita gente experimenta estas difi- 
culdades e por isso decidimos publicar uma série de pequenas 
rotinas. É difícil cobrir todas as áreas que compõem o mundo 
da programação. Nós vamos concentrar a nossa atenção es- 
pecialmente nos aspectos principais da linguagem Basic. 


PROGRAMAÇÃO ESTRUTURADA 


Estrutura é a palavra mais snob da programação. Pessoas 
com máquinas muito caras, frequentemente ridicularizam o 
Spectrum porque o Basic «não suporta programação estrutu- 
rada». Programação estruturada é um conceito, e os princípi- 
os podem ser usados em qualquer máquina. A ideia a segui- 
res é a de cortares o teu programa numa série de pequenos 
blocos, de preferência subrotinas. Por exemplo, um jogo de 
arcádia pode ter os seguites blocos: 


1000 Refere-se a ecran (screen) e variáveis 
2000 Joysticks/teclado 

3000 Movimentos 

4000 Fim do jogo 

5000 Definição de gráficos (UDG) 


O resto do programa é apenas uma questão de ligar as rotinas 
entre si. 


10 GOSUB 5000:GOSUB 100 

20 GOSUB 2000 

30 GOSUB 3000 

40 se é o fim do jogo THEN GOSUB 4000 
50 GO TO 20 


Uma estrutura como esta torna muito mais fácil alterar o pro- 
grama ou juntar-lhe outras características. 


BONS HÁBITOS 


Tenta usar nomes para as variáveis que indiquem o objectivo 
da variável. 

Variáveis como «hor» e «ver» para coordenadas horizontais e 
verticais são mais fáceis de seguir do que o uso de «x1» e 
«X2» que não tem qualquer significado. 

O Basic foi feito para seguir o Inglês sempre que possível, 
portanto todos os antecedentes indicam que devemos conti- 
nuar a seguir esta tradição. 

Não cometas o erro de usar apenas uma letra para as variá- 
veis, para poupar espaço. Se estás a fazer um programa, claro 


que o espaço é importante, mas precisarás de nomes que se- 
jam fáceis de entender. No fim podes mudar as variáveis para 
nomes simples com 1 ou 2 caracteres, se for necessário. 
Usa muitas linhas REM para te lembrarem o que é que um 
determinado bloco do programa faz. Poderás saber tudo acer- 
ca do programa no dia em que o estás a fazer, mas é muito 
fácil esqueceres-te se estiveres uma semana longe da 
máquina. 


SCROLL INFINITO 


Pode ser frustrante, especialmente durante um jogo, se o pro- 
grama parar continuamente e perguntar se quer Scroll ou não. 
O Scroll é controlado por uma das variáveis do sistema que 
conta o número de páginas, pedindo para accionar qualquer 
tecla antes de continuar ou N para parar. A linha 10 POKE 
23692,255 inutiliza o sistema. Se queres ter a certeza de que 
nunca precisarás de premir uma tecla para fazer Scroll, então 
verifica se a linha está repetida em diversos ponto do progra- 
ma, por exemplo incorporada num loop. 


ARMAZENAR GRÁFICOS 


Os caracteres UDGs estão guardados numa parte especial da 
memória com início no endereço 32600. Cada caractere está 
guardado com 8 bytes consecutivos feitos com 8 byts cada 
um, Os quais representam 1 pixel (ponto no ecran). Quando 
postos no ecran os 8 bytes formam uma grelha. Usando UDGs 
standard temos apenas memória suficiente para as letras de A 
a U. Estas estão colocadas na RAM e podem ser alteradas 
usando as instruções estruturadas à volta da fórmula geral 
POKE USR «caractere gráfico» + número de byte (1 a 8). Por 
exemplo, o sétimo byte da letra A entraria usando a instrução 
POKE USR «A» + 7. 

Como a área UDG está protegida, os gráficos que se situam 
dentro dela não podem ser destruídos, a menos que se desli- 
gue o computador. Nem com NEW ou CLEAR o conseguirá. 


ESTIMADOS SÓCIOS 


Pedimos desculpa pelo lapso no programa «Conver- 
são de-numerais romanos em decimais» — Março 
85. pag. 7. 

A linha 10 em vez de 4999, deve ser 3999. 

A partir de 4000, em numeração, usam-se os símbo- 
los fundamentais com um traço por cima V = 5000). 
Nenhum símbolo pode ser usado mais de 3 vezes. 
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MUTANT MONTY 


Como toda a gente MONTY tem duas ambições na vida: enri- 
quecer rapidamente e ser um herói. 

Aqui está a sua oportunidade apenas percorrendo as 40 salas 
e recolhendo todo o ouro para no final salvar a donzela. 
Tudo isto com apenas 5 vidas e lutando contra o relógio (o 
resultado é em função do tempo que gastou) pois se não reco- 
lher o ouro a tempo perde uma vida. 

No menu inicial carregue em «1» para jogar com as seguintes 
teclas (ou escolha joystick com «2» ou «3»): 


TECLAS A USAR 

1 — suspender o jogo 

2 — música on/off 

CAPS ou X — esquerda 

Z ou C — direita 

Qa P— para cima 

A a ENTER — para baixo 

CAPS + SPACE — abortar o jogo 


SPACE SHUTTLE li 


Esta é a tua centésima primeira missão no Sistema de Tran- 
sporte Espacial. Estás na direcção da nave. O teu alvo 
encontra-se a aproximadamente, 210 milhas náuticas acima 
da terra: um satélite em órbita com problemas no giroscópio, 
intencionalmente programados. 

A tua missão é ir ao encontro ao satélite o máximo de vezes 
que puderes, usando o mínimo de gasolina; e depois voltares 
a salvo para a terra. Sempre que o conseguires encontrar com 
sucesso, o satélite está programado para ficar cada vez mais 
errante. 

isto é um teste às tuas capacidades como piloto. Serás avali- 
ado no fim de cada voo. 


FALL GUY 


Este jogo pretende funcionar como uma cena para o cinema. 
O objectivo é saitares do cimo do tunel para cima do comboio 
percorreres os telhados das carruagens com o comboio em 
andamento. Tens que ter o máximo cuidado para não caires 
entre as carruagens. 

Se conseguires executar esta cena sem problemas aumenta- 
rás o capital do director do filme e, assim, talvez ele te deixe 
tirar umas boas férias. 


HAUNTED HEDGES 


O objectivo do jogo é moveres-te num labirinto apanhando 
moedas de ouro para ires obtendo pontos (10 pontos por cada 
moeda). 

Mas tens que evitar os 4 fantasmas que desejam destruir-te. 
Podes defender-te com uma das 4 picaretas de gelo quando 
pegares numa delas, o fantasma tornar-se-á branco com o 
medo e fugirá de ti. Terás o seguinte bónus por cada fantasma 
que apanhares: 


Ee o retome Sen 200 PONTOS 
o CONS, bo THA ndo 400 PONTOS 
As mamae mica 800 PONTOS 
ACO o berro rosétrgio És 2 1600 PONTOS 
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Durante o jogo aparecerte-ão mais tesouros pelos quais terás 
um bónus extra: 


Arca do tesouro ......cc.. 200 PONTOS 
O PS 500 PONTOS 
o TT E PRN 1 000 PONTOS 


Quando apanhares todas as moedas e tiveres usado to- 
das as picaretas, passarás para outro nível onde exis- 
tem mais moedas e onde os fantasmas se movem mais 
depressa. Depois de obteres 10000 ganharás uma vida 
extra. 

Diverte-te. 


THE DUKES OF HAZZARD (Elite) 


O velho vilão Boss Hogg está novamente a preparar das suas. 
Os Dukes devem-lhe $5000, que lhes foram emprestados pa- 
ra eles comprarem algumas máquinas agrícolas. 

O Boss Hogg quer o dinheiro de volta e avisou os Dukes que 
se eles não pagassem o que lhe deviam em 72 horas, ele 
ficaria com o General Lee como garantia. 

O Bo e o Luke decidiram entrar na corrida de automóveis de 
Hazzard — primeiro prémio 85000 — que começava no dia 
seguinte. 

Normalmente os Dukes teriam bastantes possibilidades de 
ganhar a corrida, mas com toda a polícia de Hazzard e o Boss 
Hogg atrás deles para os impedirem de alcançar os seus fins, 
os Dukes não estão tão certos disso! 

O objectivo do jogo é chegar ao princípio da corrida de auto- 
móveis de Hazzard, conduzindo o General Lee desde a casa 
dos Dukes e por uma estrada extremamente acidentada. Ao 
longo do teu percurso tens que manter-te à frente do Roscoe, 
cuja maior ambição é prender os Dukes. 

Esta pode ser a oportunidade de Roscoe tornar o seu sonho 
realidade, pois tem a ajuda de toda a polícia de Hazzard. 
Tem cuidado com O Boss que está na sua carruagem, na 
estação. 

Toma cuidado, também com Daisy — aborrece-a e pagarás 
bem caro. 

Os Dukes têm uma série de truques na manga: dinamite, e 
quando o big-bang começa um espectacular salto do General 
Lee, poderá resolver o problema. 

Diverte-te. 


TOWER OF DESPAIR 


É um jogo de aventuras. 

Uma terrível guerra entre as forças do mal e as forças do bem, 
devastara Aelandor. Com a vitória das forças do bem Aelandor 
reencontrará a paz. 

Muitos anos passaram desde essa terrível guerra. 

Agora és o guerreiro Mage do castelo Argent, filho do herói 
Thorvald. Viveste sempre em paz e em prosperidade — pare- 
cem séculos desde a terrível guerra em que o teu pai e Elwood 
derrotaram Malnor, o senhor do mal. Nessa altura tu eras uma 
criança mas nunca te cansas de ouvir a história. 

Numa manhã de sol quando trabalhavas no santuário do 
castelo Argent, o globo de mensagens dos feiticeiros de 
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Aelandor começou a emitir terríveis mensagens. O Demónio 
voltara a despertar. Tudo fora planeado na torre do desespero 
e desta vez o seu poder é superior. Tu como guerreiro mais 
destemido tens que lutar contra este terrível poder. A tua tare- 
fa será difícil e extremamente perigosa. 

Mas o destino de Aelandor está nas tuas mãos, por isso não 
podes falhar. 

Boa sorte! 


3-D STARSTRIKE (Realtime Software) 


O objectivo deste jogo é destruir os inimigos que sucessiva- 
mente vão surgindo no ecran ao longo dos seus 5 quadros. 
Não nos podemos deixar atingir, pois cada vez que uma nave 
choca connosco, vamos perdendo energia assim como a 
nossa condição de segurança vai passando de verde para 
amarela e vermelha, consecutivamente. 

Se ao chegarmos ao quinto quadro tivermos energia suficiente 
e conseguirmos atravessar o túnel, voltamos ao início do jogo, 
num nível de dificuldade inferior. 

O programa é compatível com Joysticks ou teclado. Para a 
opção de teclado, as teclas a utilizar são: 


Q — Subir | — Esquerda 
A — Descer P — Direita 
M — Disparar 


* O programa tem 5 níveis de dificuldade. Para os escolher, 
basta carregar numa tecla de O a 4. 


FINDERS KEEPERS 


Trata-se de um jogo de Arcádia. 

A história começa quando o guerreiro mágico quer tornar-se 
um membro da tábua poligonal. O rei manda-o para o castelo 
de SPRITELAND, para ele provar o seu valor. Mas o mágico 
entretanto mudou de ideias... 

O mágico tem, portanto 2 hipóteses: 

1) Fugir do castelo de SPRITELAND 

2) Recolher o máximo de tesouros possível para agradar ao 
rei. Para isso tem que recolher os objectos que encontrar e 
evitar os monstros que lhe diminuem a energia. 

O programa contém instruções mais pormenorizadas, assim 
como permite a redefinição das teclas. 


HALAGA (Interceptor Micro's) 


Contratado pela federação de Pesquisa Espacial para exami- 
nar o novo sistema de Cygnus Major de recursos minerais, 
encontrarás uma recepção hostil. Centenas de insectos, como 
criaturas vindas de outra dimensão, tentarão destruir a tua 
missão. 
Apenas a tua perícia e o teu laser poderão ajudar-te. 
Teclas: CAPS SHIFT — Esquerda 

Z — Direita 

SPACE — Fire 


VALKYRIE 17 


Uma noite chegas a casa e descobres uma mensagem no teu 
gravador de mensagens. 

Algo que julgavas desaparecido para sempre, levantou a ca- 
beça monstruosa novamente. Valkyrie 17 está activa. 


CLUBE Zgso 


Durante as 5 noites seguintes, uma série de telefonemas an- 
ciosos, convencem-te de que o assunto merece uma investi- 
gação. Recebeste um dossier das actividades de Valkyre 17. 
Juntos, diversos fragmentos de relatórios feitos nos últimos 40 
anos fazem-te, lentamente, começar a compreender tudo. 
Drakenfeur, Heinrich e Reichsmuller ... O emblema pressio- 
nado contra a tua mão na estação. E aquele telefonema de- 
sesperado pedindo socorro, do Hotel Glitz. As tuas investiga- 
ções no Hotel Glitz parecem não te levar a lado nenhum. 
Mas quando te dirigias para o bar sentes algo mover-se na 
sombra, uma pancada na cabeça e tudo fica negro... 
Valkyrie 17 é uma aventura, que reune excelentes gráficos 
com textos que te dão as diferentes localizações. Vais encon- 
trar uma série de personagens. Serás ajudado por algumas, 
enquanto outras desejam apenas a tua morte. 

Do outro lado da cassete tens as mensagens telefónicas e o 
dossier das actividades de Valkyrie 17. 

Tem cuidado e boa sorte pois vais precisar dela. 


BATTLE CARS 


É um jogo de perícia e estratégia podendo estas ser utilizadas 
de diferentes maneiras. Existem 3 diferentes arenas para a 
batalha — um circuito, o centro de uma cidade e o autódromo 
(um estádio vazio onde as tuas armas e a tua perícia serao 
testadas). 

Como jogador, poderás criar as tuas manobras e testá-las, 
correndo no circuito contra um automóvel controlado pelo 
computador. 

Poderás também testar as tuas capacidades no autódromo, 
num combate contra o computador. 

Mas o último teste à tua perícia será quando competires com 
um jogador, numa luta até à morte, em qualquer dos circuitos. 
No jogo Battle Cars podes escolher os teus carros e enchê-los 
com as armas que pretenderes. 

Boa sorte! 


747 FLIGHT SIMULATOR 


Este programa produz uma simulação das características de 
voo de um Jumbo dando uma cuidada visão do exterior e um 
retrato fiel dos painéis e instrumentos de voo. O teclado (ou 
Joystick) é usado para controlar o avião. Todos os instrumen- 
tos essenciais de voo estão representados no ecran, e estes 
conjuntamente com outras indicações, manter-te-ão informa- 
do da situação, condição e execução do teu voo. 


UTILITÁRIOS 


MEGA BASIC (550800) 


É um programa em código máquina (cerca de 22K) com a fina- 
lidade de aumentar a capacidade do ZX Spectrum, dando-lhe 
características de um computador de preço 5 vezes superior 
ao seu. 

(Janelas, diferentes tipos de caracteres, assim como uma sé- 
re de novos comandos). 

O teclado funcionará como um computador normal em que 
todos os comandos e funções serão dados ao computador 
letra a letra. O método de EDIT de uma linha será conseguido 
pelo cursor que se move no ecran independentemente do ha- 
bitual cursor do INPUT. O ecran pode ser dividido em 3 sec- 
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ções: secção de INPUT de comandos e display de mensagem 
de erros; secção de OUTPUT do programa; secção de lista- 
gem automática. (Estas áreas são definidas pelo utilizador). 
Os três tipos diferentes de caracteres estão definidos para: 


— 64 colunas/24 linhas (metade do tamanho normal) 
— 32 colunas/24 linhas (caracteres normais) 
— 32 colunas/12 linhas (dobro da altura) 


com a possibilidade de 5 formas diferentes de display dos 
mesmos. 

Também a posição e o tamanho das janelas podem ser total- 
mente definidas pelo utilizador, obtendo várias janelas simul- 
tâneas se o desejar. Cada janela pode ser limpa individual- 
mente, invertida, com scroll para cima, esquerda e direita. 
Pela primeira vez o Spectrum terá as suas próprias rotinas de 
sprites. Tudo o que tem a fazer é definir a direcção que preten- 
de para o movimento da sprite podendo definir também uma 
forma de reconhecer se uma sprite colide com um outro 
gráfico. 


e Breve explicação dos 25 novos comandos MEGA BASIC 


AUTO — Produção automática do número de linha 
BACKUP — Cópia de Files 

CHANGE — Manipulação da File 

CLW — Limpa uma janela no ecran 
CURRENT — Troca a janela usada 

DELETE — Limpa um bloco de Basic 


DOWN ' — PRINT de uma string no fundo do ecran 

EDIT — Apresenta uma linha de programa para EDIT 

EXAMINE — Display de headers das Files 

FADE — Efeitos especiais no ecran 

FONT — Seleccionar o tipo de caracteres a usar 

FX — Funções diversas 

INVERT — Altera INK para PAPER e vice-versa 

KEY — Definir novas teclas 

MODE — Altera o tamanho dos caracteres em determinado 
momento 

MON — Salto para o painel principal 

PAN — Scroll da janela pixel/pixel à esquerda ou direita 

PLAY — Efeitos sonoros 


“"Q2ESTART — Equivalente a «ON ERROR GOTO» 


SPEED | — Com TRON reduz a velocidade de execução do 
programa 

SWAP — Altera atributos 

TROFF  — Desligar o mecanismo de TRACE 

TRON — Ligar o mecanismo de TRACE 

VDU — Equivalente a PRINT CHR$ 


WINDOW — Define localização e tamanho da janela no ecran 


TASWIDE Spectrum 16K/48K 


Programa totalmente em código máquina com 1495 bytes, 
permite utilizar 64 caracteres por linha no ecran, podendo ser 
utilizado também em conjunto com programas requeridos por 
alguns Interfaces para saída na impressora. 


COMPILER FP Spectrum 16K/48K 


Compilador Basic. Tem como função, traduzir programas Ba- 
sic em código máquina, aumentando assim a velocidade de 
execução de um seu programa em cerca de 10X a velocidade 
normal. Antes de dar início à compilação de qualquer progra- 

ma, poderá definir a sua posição em memória e o FP COMPI- 


LER em seguida traduzirá quase na totalidade todos os co- 
mandos funções Basic. 


EDITOR/ASSEMBLER 16K/48K Spectrum 
(Picturesque) 
MONITOR/DISASSEMBLER 16K/48K Spectrum 
(Picturesque) 


(Deslocáveis na memória e com a possibilidade de trabalha- 
rem conjuntamente). 


TASCOPY (500800) 
Cópia de ecrans (screens), via ZX Interface 1 


Contém 2 programas: 


1 — Para reprodução de um ecran monocromo, por linhas 
horizontais 7 

2 — Para reprodução de ecrans em grande escala, por linhas 
verticais, utilizando pontos com diferentes densidades, de 
forma a se poder distinguir as cores utilizadas. 

Sinclair ZX Spectrum 

Sinclair ZX Interface 1 

E as impressoras 

Epson FX-80 

Epson RX-80 

Epson MX-80 type III 

Shinwa CP-80 

Mannesman Tally MT 80 

Star DMP 510/515 

Brother HR5 


TASPRINT (500$00) 


Com aplicação no programa «Tasword Two». 

Permite a impressão de vários tipos de caracteres com a altu- 
ra 2x superior à normal. 

Sublinhados, escrita invertida (inverse print) e outras formas 
de destacar palavras ou frases de um texto. 


TASMERGE (500$00) 


Torna possível transferir do programa Masterfile, files conten- 
do até 15 campos, para o Tasword Two, podendo então sai- 
rem na impressora segundo os seus caracteres e formas. 
(com aplicação apenas em microdive) 


SUPERCODE III (version 3.5) (600$00) 


Um excelente toolkit, compatível com Spectrum Plus e Spec- 
trum 48K. 

Consiste em 152 rotinas em código máquina. 

— Dá mais flexibilidade aos seus programas. (Inclui rotinas 
como: TRACE, ON ERROR GOTO, ON BREAK GOTO, 
BIC: . ...). 

— Efeitos especiais: todo o tipo de Scroll (esquerda, direita, 
para cima, para baixo e diagonal), troca instantânea de cor 
(PAPER, INK, BRIGHT e FLASH), MERGE e INVERSE de 
ecrans (screens), efeitos sonoros, etc.... 

— Compatível com todos os acessórios (Sinclair) tais como: 
ZX Printer, Prism Modern, Interfaces 1 e 2, etc.... 

— O programa em Basic, permite o acesso às 152 rotinas, não 
tendo no entanto qualquer influência na sua execução, sendo 
a sua função essencial a de apoio como instruções (200 pág. 
de ecran). 
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INSCRIÇÃO COMO ASSOCIADO 


O CLUBE Zeo está aberto a todos os utilizadores de microcomputadores. 
A intenção de associar os entusiastas das micro-máquinas, é exclusivamente a de permitir: 


1 — PUBLICAÇÃO DE UM JORNAL MENSAL, onde sejam publicados programas de uso geral ou específico 
como no caso da educação. 


2 — PROMOVER TROCAS DE PROGRAMAS, e trocas de experiências; tanto no caso do Soitware (programa- 
ção), como no caso do Hardware (electrónica). 


3 — PROMOVER DESCONTOS NA AQUISIÇÃO DE PROGRAMAS. 


4 — LANÇAR CURSOS DE PROGRAMAÇÃO EM BASIC — PASCAL OU OUTRAS LINGUAGENS E DIVULGAR 
O USO DE LINGUAGEM MÁQUINA. 
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MERCADO Z80 


O MERCADO Z80 É UMA SECÇÃO DO CLUBE Z80 QUE 
EMPRESA AOS SEUS SÓCIOS PROGRAMAS E LIVROS 
(SPECTRUM) PARA CONSULTA E MELHOR CONHECI- 
MENTO/APROVEITAMENO DE MICROCOMPUTADORES. 


— PROGRAMAS: Todos os jogos e utilitários que exis- 
tem no CLUBE Z80, excepto programas de cópia e 
programas com direitos de autor (Ex.: “Cálculo de 
Estruturas”). 


— LIVROS: Cerca de 40 títulos diferentes. 


COMO TORNAR-SE SÓCIO DO MERCADO Z80? 


Para poder ter em sua posse 5 cassetes ou livros durante um 
mês, basta enviar-nos um depósito de Esc. 2000800 (garantia 
de que os materiais nos serão devolvidos em estado de con- 
servação e funcionamento idêntico aquele em que foram 
enviados). 

Ao mesmo tempo, deverá remeter-nos a quantia de Esc. 
1000800 que será a base da sua “Conta-Corrente”. Essa 
quantia servirá para pagar as suas despesas: 


— Taxa de utilização dos produtos: 250800 (referente a 5 
unidades, entre livros e programas). 


— Instruções dos programas (no caso de o sócio não as 
devolver, debitar-lhe-emos 5$00 por folha). 


— Embalagem Postal: 20800 a 30$00 (no caso de o pedi- 
do ser feito via CTT. 


— Portes dos CTT's: 40800 a 80$00 (no caso de o pedido 
ser feito via CTT. 


IMPORTANTE! 


— O depósito de 2000800 pertence integralmente ao sócio 
desde que os materiais por ele utilizados nos sejam devol- 
vidos nas mesmas condições em que saíram do CLUBE 
Z80. Assim, quando o sócio desistir do MERCADO Z80, 
essa quantia ser-lhe-á entregue. 

Em caso de extravio, danos ou avarias dos materiais, O 
sócio pagará o valor comercial dos respectivos produtos (a 
descontar no depósito de 2000$00). 


— No caso de os produtos seguirem via CTT, o sócio não 
pagará para levantar a encomenda. As despesas serão 
pagas por nós, no momento da expedição, e debitadas ao 
sócio (a descontar no depósito de 1000800). 


— Quando as suas despesas estiverem a atingir os 1000800 
avisá-lo-emos, e o sócio deverá renovar essa quantia de 
modo a cobrir despesas seguintes. 


— A taxa de utilização dos produtos é fixa — 250800. Ela. 
refere-se ao conjunto de 5 unidades. (Pagará sempre 
250$00 mesmo que peça só uma unidade). 


QUE PRODUTO E QUE QUANTIDADES? 


O sócio nunca pode pedir mais do que 5 unidades de cada vez 
(entre livros e cassetes). Quanto a livros não poderemos em- 
presar mais do que um. Assim, o sócio poderá pedir: 


— 5 cassettes 
ou 
— 4 cassettes + 1 livro 


QUAL O TEMPO DE UTILIZAÇÃO? 


O sócio poderá ficar com os produtos durante 1 MÊS, no 
máximo. Findo esse período, deverá devolvê-los ao CLUBE 
Z80. 

O MERCADO Z80 só atenderá dois pedidos por mês, para 
cada sócio. 


COMO FAZER O PEDIDO? 


Numa carta, escreva pelo menos 10 títulos (por ordem de 
prioridade). Se os 5 primeiros não estiverem disponíveis, en- 
viaremos os outros evitando grandes esperas de produtos que 
estejam em circulação. 

Ao devolver os produtos, inclua uma carta com o pedido 
seguinte. 


IMPORTANTE! O SÓCIO SÓ PODERÁ EFECTUAR UM 
NOVO PEDIDO JUNTAMENTE COM A DEVOLUÇÃO DO 
MATERIAL CORRESPONDENTE AO PEDIDO ANTERIOR 
(ou depois, se preferir). 


Se estiver interessado no MERCADO Z80, faça já o seu 1.º 
pedido, enviando 3000$00 e o cupão abaixo devidamente 
preenchido. 


INSCRIÇÃO NO MERCADO Z80 


NOME 
ENDEREÇO 
CÓDIGO POSTAL 
TELEFONE 


ENVIO 3 000800 (2 000800 como garantia de que devolverei os produtos em boas condições + 1 000$00 para a minha 


«Conta Corrente» em: 


Land 


Lo 


ma 


Cheque n.º Vale Postal Dinheiro 
Banco N.º 
6 = = Assinatura do Sócio 
É SÓCIO DO CLUBE Z80? [|] siM I[] NÃO 


